ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTI Interface Reference

Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces

use pm_fftnr, only: getFFTI
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTI(data(:))
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTI
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKC => CKS
20 real(TKC) :: reltol
21 complex(TKC), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTI(getFFTF(data))")
32 atad = getFFTI(getFFTF(data))
33 call disp%show("atad")
34 call disp%show( atad )
35 call disp%show("reltol = sqrt(epsilon(1._TKC))")
36 reltol = sqrt(epsilon(1._TKC))
37 call disp%show("reltol")
38 call disp%show( reltol )
39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
43 call disp%skip()
44 end block
45
46 block
47 use pm_kind, only: TKC => CKD
48 real(TKC) :: reltol
49 complex(TKC), allocatable :: data(:), atad(:)
50 call disp%show("lenData = getUnifRand(5, 100)")
51 lenData = getUnifRand(5, 100)
52 call disp%show("lenData")
53 call disp%show( lenData )
54 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
55 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
56 call disp%show("data")
57 call disp%show( data )
58 call disp%skip()
59 call disp%show("atad = getFFTI(getFFTF(data))")
60 atad = getFFTI(getFFTF(data))
61 call disp%show("atad")
62 call disp%show( atad )
63 call disp%show("reltol = sqrt(epsilon(1._TKC))")
64 reltol = sqrt(epsilon(1._TKC))
65 call disp%show("reltol")
66 call disp%show( reltol )
67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
71 call disp%skip()
72 end block
73
74 block
75 use pm_kind, only: TKC => CKH
76 real(TKC) :: reltol
77 complex(TKC), allocatable :: data(:), atad(:)
78 call disp%show("lenData = getUnifRand(5, 100)")
79 lenData = getUnifRand(5, 100)
80 call disp%show("lenData")
81 call disp%show( lenData )
82 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
83 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
84 call disp%show("data")
85 call disp%show( data )
86 call disp%skip()
87 call disp%show("atad = getFFTI(getFFTF(data))")
88 atad = getFFTI(getFFTF(data))
89 call disp%show("atad")
90 call disp%show( atad )
91 call disp%show("reltol = sqrt(epsilon(1._TKC))")
92 reltol = sqrt(epsilon(1._TKC))
93 call disp%show("reltol")
94 call disp%show( reltol )
95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
99 call disp%skip()
100 end block
101
102 block
103 use pm_kind, only: TKC => RKS
104 real(TKC) :: reltol
105 real(TKC), allocatable :: data(:), atad(:)
106 call disp%show("lenData = getUnifRand(5, 100)")
107 lenData = getUnifRand(5, 100)
108 call disp%show("lenData")
109 call disp%show( lenData )
110 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
111 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
112 call disp%show("data")
113 call disp%show( data )
114 call disp%skip()
115 call disp%show("atad = getFFTI(getFFTF(data))")
116 atad = getFFTI(getFFTF(data))
117 call disp%show("atad")
118 call disp%show( atad )
119 call disp%show("reltol = sqrt(epsilon(1._TKC))")
120 reltol = sqrt(epsilon(1._TKC))
121 call disp%show("reltol")
122 call disp%show( reltol )
123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
127 call disp%skip()
128 end block
129
130 block
131 use pm_kind, only: TKC => RKD
132 real(TKC) :: reltol
133 real(TKC), allocatable :: data(:), atad(:)
134 call disp%show("lenData = getUnifRand(5, 100)")
135 lenData = getUnifRand(5, 100)
136 call disp%show("lenData")
137 call disp%show( lenData )
138 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
139 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
140 call disp%show("data")
141 call disp%show( data )
142 call disp%skip()
143 call disp%show("atad = getFFTI(getFFTF(data))")
144 atad = getFFTI(getFFTF(data))
145 call disp%show("atad")
146 call disp%show( atad )
147 call disp%show("reltol = sqrt(epsilon(1._TKC))")
148 reltol = sqrt(epsilon(1._TKC))
149 call disp%show("reltol")
150 call disp%show( reltol )
151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
155 call disp%skip()
156 end block
157
158 block
159 use pm_kind, only: TKC => RKH
160 real(TKC) :: reltol
161 real(TKC), allocatable :: data(:), atad(:)
162 call disp%show("lenData = getUnifRand(5, 100)")
163 lenData = getUnifRand(5, 100)
164 call disp%show("lenData")
165 call disp%show( lenData )
166 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
167 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
168 call disp%show("data")
169 call disp%show( data )
170 call disp%skip()
171 call disp%show("atad = getFFTI(getFFTF(data))")
172 atad = getFFTI(getFFTF(data))
173 call disp%show("atad")
174 call disp%show( atad )
175 call disp%show("reltol = sqrt(epsilon(1._TKC))")
176 reltol = sqrt(epsilon(1._TKC))
177 call disp%show("reltol")
178 call disp%show( reltol )
179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
183 call disp%skip()
184 end block
185 end do
186
187end program example
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output
1lenData = getUnifRand(5, 100)
2lenData
3+93
4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
5data
6(+1.92828214, +0.485822380), (+1.73936975, +0.118118107), (+1.33944178, +0.527422190), (+1.13410246, +0.384492815), (+1.13736677, +0.371438026), (+1.20628595, +0.942725301), (+1.24710941, +0.916287303), (+1.13596487, +0.532871008), (+1.73919415, +0.132937431E-1), (+1.66250658, +0.552362740), (+1.28188431, +0.702381134E-3), (+1.20493543, +0.143516839), (+1.45344019, +0.468938410), (+1.57364798, +0.511376023), (+1.97211266, +0.884518921), (+1.12963271, +0.306706488), (+1.17235136, +0.364198625), (+1.35559201, +0.833969235), (+1.86572886, +0.728684485), (+1.75268710, +0.201392651), (+1.46491933, +0.124852061), (+1.83541250, +0.531875312), (+1.22257483, +0.704520762), (+1.75546908, +0.333494842), (+1.27703977, +0.999290824), (+1.78207970, +0.214306593), (+1.67149436, +0.145100296), (+1.96135294, +0.184467196), (+1.98432565, +0.219243824), (+1.57066143, +0.367933810), (+1.53907692, +0.499286234), (+1.21570230, +0.147958100), (+1.05420041, +0.484396756), (+1.97620082, +0.743840277), (+1.19873142, +0.439397991), (+1.32437193, +0.710479617), (+1.39814281, +0.676142156), (+1.41900432, +0.334939241), (+1.15615141, +0.522957206), (+1.04794335, +0.348197281), (+1.90164900, +0.799888968), (+1.62614441, +0.537104130), (+1.90959620, +0.338664114), (+1.54742062, +0.349968076), (+1.61310935, +0.501841724), (+1.31022227, +0.602088928), (+1.02234006, +0.173359394), (+1.56181931, +0.479492068), (+1.66600239, +0.350962937), (+1.55199409, +0.809128165), (+1.89515519, +0.896776080), (+1.43405628, +0.641661227), (+1.22555876, +0.781950057), (+1.07965529, +0.339041471), (+1.20741308, +0.153938651), (+1.44565153, +0.144437075), (+1.97966719, +0.272667408), (+1.01413751, +0.826833665), (+1.43085968, +0.631731987), (+1.27139020, +0.749631763), (+1.59435308, +0.651165903), (+1.34056425, +0.956333935), (+1.24705899, +0.635321856), (+1.29038477, +0.457377732), (+1.81124926, +0.680907309), (+1.00085354, +0.338482857), (+1.91679108, +0.797733307), (+1.62930882, +0.572278023), (+1.72847319, +0.790994585), (+1.71136332, +0.636306643), (+1.72579169, +0.843657374), (+1.03293669, +0.273217022), (+1.70177984, +0.624931812), (+1.36289215, +0.629178226), (+1.42916954, +0.891859710), (+1.89933825, +0.831886530E-1), (+1.09114087, +0.209700644), (+1.81907904, +0.967399120), (+1.62149107, +0.543372154), (+1.81183374, +0.326394022), (+1.01208627, +0.983253121), (+1.25718713, +0.343556345), (+1.90139794, +0.101082385), (+1.57933843, +0.316238165), (+1.17651021, +0.573693931), (+1.22192001, +0.483001709), (+1.75416732, +0.536446929), (+1.81992579, +0.430165172), (+1.49693584, +0.845349491), (+1.45765483, +0.651767433), (+1.47312427, +0.529951513), (+1.26588345, +0.738974810E-1), (+1.05595052, +0.274927318)
7
8atad = getFFTI(getFFTF(data))
9atad
10(+1.92828202, +0.485822439), (+1.73936987, +0.118118256), (+1.33944166, +0.527422309), (+1.13410234, +0.384492815), (+1.13736653, +0.371438086), (+1.20628607, +0.942725241), (+1.24710929, +0.916287065), (+1.13596487, +0.532871068), (+1.73919439, +0.132938623E-1), (+1.66250658, +0.552362859), (+1.28188431, +0.702440739E-3), (+1.20493543, +0.143516779), (+1.45344007, +0.468938559), (+1.57364798, +0.511376143), (+1.97211254, +0.884518981), (+1.12963259, +0.306706578), (+1.17235136, +0.364198625), (+1.35559189, +0.833969235), (+1.86572874, +0.728684545), (+1.75268686, +0.201392770), (+1.46491909, +0.124852166), (+1.83541226, +0.531875372), (+1.22257495, +0.704520702), (+1.75546896, +0.333494723), (+1.27703989, +0.999290824), (+1.78207970, +0.214306816), (+1.67149425, +0.145100594), (+1.96135271, +0.184467435), (+1.98432565, +0.219244003), (+1.57066131, +0.367933929), (+1.53907681, +0.499286234), (+1.21570253, +0.147958040), (+1.05420017, +0.484396636), (+1.97620070, +0.743840039), (+1.19873166, +0.439397931), (+1.32437205, +0.710479379), (+1.39814281, +0.676141977), (+1.41900420, +0.334939063), (+1.15615153, +0.522957206), (+1.04794335, +0.348197103), (+1.90164888, +0.799888849), (+1.62614429, +0.537104070), (+1.90959632, +0.338664025), (+1.54742050, +0.349968135), (+1.61310935, +0.501841426), (+1.31022215, +0.602088809), (+1.02234006, +0.173359439), (+1.56181931, +0.479492009), (+1.66600204, +0.350962967), (+1.55199385, +0.809127927), (+1.89515519, +0.896775842), (+1.43405616, +0.641660988), (+1.22555864, +0.781949878), (+1.07965517, +0.339041293), (+1.20741332, +0.153938681), (+1.44565165, +0.144436926), (+1.97966719, +0.272667527), (+1.01413739, +0.826833546), (+1.43085968, +0.631731927), (+1.27138996, +0.749631643), (+1.59435296, +0.651165724), (+1.34056401, +0.956333876), (+1.24705887, +0.635321736), (+1.29038477, +0.457377672), (+1.81124902, +0.680907249), (+1.00085354, +0.338483006), (+1.91679108, +0.797733188), (+1.62930870, +0.572277844), (+1.72847342, +0.790994585), (+1.71136320, +0.636306703), (+1.72579157, +0.843657136), (+1.03293657, +0.273217022), (+1.70177960, +0.624931931), (+1.36289191, +0.629178226), (+1.42916954, +0.891859710), (+1.89933789, +0.831887722E-1), (+1.09114063, +0.209700614), (+1.81907868, +0.967399120), (+1.62149107, +0.543372273), (+1.81183326, +0.326393992), (+1.01208615, +0.983252943), (+1.25718701, +0.343556315), (+1.90139782, +0.101082116), (+1.57933819, +0.316238046), (+1.17651033, +0.573693871), (+1.22192001, +0.483001977), (+1.75416732, +0.536446810), (+1.81992590, +0.430164933), (+1.49693549, +0.845349312), (+1.45765448, +0.651767492), (+1.47312427, +0.529951394), (+1.26588309, +0.738973022E-1), (+1.05595040, +0.274927318), (+0.119209290E-6, -0.163912773E-6), (+0.357627869E-6, +0.596046448E-7), (+0.238418579E-6, -0.819563866E-7), (-0.178813934E-6, +0.447034836E-7), (-0.119209290E-6, +0.178813934E-6), (+0.417232513E-6, +0.283122063E-6), (+0.238418579E-6, +0.208616257E-6), (+0.596046448E-7, +0.327825546E-6), (+0.596046448E-7, +0.238418579E-6), (+0.178813934E-6, +0.268220901E-6), (+0.178813934E-6, +0.238418579E-6), (-0.119209290E-6, +0.119209290E-6), (-0.119209290E-6, +0.596046448E-7), (+0.119209290E-6, +0.149011612E-6), (+0.00000000, +0.596046448E-7), (-0.596046448E-7, +0.894069672E-7), (+0.178813934E-6, -0.119209290E-6), (+0.238418579E-6, +0.134110451E-6), (+0.119209290E-6, +0.149011612E-7), (+0.596046448E-7, +0.298023224E-7), (+0.238418579E-6, +0.238418579E-6), (+0.298023224E-6, +0.357627869E-6), (+0.238418579E-6, +0.596046448E-7), (+0.119209290E-6, +0.268220901E-6), (+0.238418579E-6, +0.00000000), (+0.238418579E-6, +0.327825546E-6), (+0.596046448E-6, +0.208616257E-6), (+0.357627869E-6, +0.149011612E-7), (+0.357627869E-6, -0.178813934E-6), (+0.238418579E-6, -0.119209290E-6), (+0.298023224E-6, -0.268220901E-6), (+0.238418579E-6, +0.894069672E-7), (+0.417232513E-6, +0.298023224E-7), (+0.119209290E-6, +0.149011612E-6), (+0.298023224E-6, +0.596046448E-7)
11reltol = sqrt(epsilon(1._TKC))
12reltol
13+0.345266977E-3
14isClose(data, atad(1:size(data)), reltol = reltol)
15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
17
18lenData = getUnifRand(5, 100)
19lenData
20+100
21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
22data
23(+1.0427826175622810, +0.86079928130321515), (+1.5021260257098337, +0.77620802123320010), (+1.4109533639126908, +0.33651003968435700), (+1.0493942175576896, +0.30712385044078239), (+1.5628663972609314, +0.15949209453471869), (+1.0676368768230144, +0.14213454345280507), (+1.3215019537751365, +0.17587677047578276), (+1.8626766297820057, +0.28646191968068535), (+1.2904224520862515, +0.83976240690134629), (+1.6742227575271365, +0.60567782471438580), (+1.4001605785260969, +0.80397596152963358), (+1.2470547069039286, +0.42867918723350806), (+1.7129116881476474, +0.10414760050142879), (+1.5070413167260690, +0.28828203210885417E-1), (+1.2965250459633699, +0.85821278861288397), (+1.3687000319756704, +0.65906946764438867E-1), (+1.8872255173648456, +0.83128624573556376), (+1.7562863429155167, +0.99121238871939832), (+1.0664040637228998, +0.34681565831853112), (+1.0047404319634650, +0.82958391648431440E-1), (+1.4088562048260838, +0.94558199546248756), (+1.9299703843508329, +0.95202281046226378), (+1.0348223578356457, +0.58213607581889104), (+1.2125539065687871, +0.43483103724529037), (+1.2590998205286685, +0.51952896866446097), (+1.7107815983748407, +0.89133889091815155), (+1.5059517846677228, +0.67098861817242239), (+1.6508009392918681, +0.95887754050158192), (+1.2450360855349425, +0.81350441467168744E-1), (+1.9029359027658113, +0.43518682590175028), (+1.4319382461588495, +0.14571137656727495), (+1.6985276889080778, +0.16839917563198692E-1), (+1.3848787184018905, +0.65206667423230591), (+1.8855610668344664, +0.23230106876993450), (+1.2357480417448934, +0.89210289676039456), (+1.7016854283467180, +0.24624239730838404), (+1.0377539632576378, +0.85795518155155392), (+1.3478575622296791, +0.97110770078291153), (+1.4920051155401968, +0.43248412717440654), (+1.4717958755529144, +0.30216813558051747), (+1.4461330223687123, +0.82492325136094358), (+1.8361410784578975, +0.28600261987114939), (+1.2275698262512087, +0.66222473806245830), (+1.3879388270658690, +0.58593402288056806), (+1.1132009587605940, +0.19667370010930574), (+1.1573684335631560, +0.73980499294341096), (+1.2035874480300022, +0.48036463792654804E-1), (+1.2397983916540225, +0.47109737210932356), (+1.3767244612989931, +0.39019463384220365), (+1.6182254864285486, +0.11889648935721098), (+1.1189110487929947, +0.73272910247551593), (+1.6428269110606077, +0.60779811005955120), (+1.8215674500481134, +0.36600127136069571), (+1.9177565109105612, +0.69429533373134678), (+1.1273163844108156, +0.62233669423932603E-1), (+1.6806358075557690, +0.34364922791661601), (+1.4550372423722924, +0.67598679145370655E-1), (+1.7954886438153443, +0.85116879056934958), (+1.1304208177564177, +0.44862574147339207), (+1.0716553252994585, +0.87936100718148014), (+1.8898856849318326, +0.31686094434058731), (+1.9587111296410034, +0.20346912577117404E-1), (+1.8566830088096544, +0.54788672588777132), (+1.3786832597804817, +0.77184575254754972), (+1.2117629919132007, +0.31018021530939666), (+1.1769509233597049, +0.94818079956125700), (+1.4904098218683444, +0.15401778940863620), (+1.8113543334186442, +0.13630348881240961), (+1.9038467314902929, +0.72236093790596934), (+1.9098839372899141, +0.26064240844400632), (+1.4074289680246439, +0.52382114009706549), (+1.7629991972777441, +0.51082315530968092E-2), (+1.3023524499208790, +0.11685119937384092), (+1.8783136342761204, +0.83942657105322138), (+1.2956742901281644, +0.88608664306275753), (+1.3655886886087085, +0.68982100185881778), (+1.3370516445500069, +0.59315763199150917), (+1.2066424914960856, +0.55727944184971778), (+1.4430466307680982, +0.66541517813125606), (+1.0800192428581252, +0.75399033534746596), (+1.8785224345911913, +0.14939851919146885), (+1.2281886819482279, +0.10623465918951613), (+1.4470702409136580, +0.16148667823919460), (+1.4232976516481308, +0.90750415420788011), (+1.9863135971629469, +0.41707833875908706E-1), (+1.5088966577513188, +0.91107874373663378), (+1.6955479955824628, +0.94454579170242481), (+1.4785218176859003, +0.14580197988398447), (+1.0900319998407642, +0.44600507773430142), (+1.7492064507604541, +0.47752550628315527), (+1.9597307326970510, +0.16275378397246798), (+1.8610427163628536, +0.47520530534159511), (+1.7574096506622905, +0.89991806425554111), (+1.9643098934661769, +0.69732859646448209), (+1.2710855557307303, +0.34606355910915454), (+1.0409224443107941, +0.10503983522278659E-1), (+1.2623957288257279, +0.35937912782114945), (+1.3359467233859581, +0.10750219652415149), (+1.7552698104581037, +0.40844990281403937), (+1.8276342142825475, +0.31473328249253185)
24
25atad = getFFTI(getFFTF(data))
26atad
27(+1.0427826175622812, +0.86079928130321526), (+1.5021260257098341, +0.77620802123320021), (+1.4109533639126906, +0.33651003968435700), (+1.0493942175576900, +0.30712385044078261), (+1.5628663972609307, +0.15949209453471891), (+1.0676368768230151, +0.14213454345280505), (+1.3215019537751362, +0.17587677047578276), (+1.8626766297820057, +0.28646191968068563), (+1.2904224520862517, +0.83976240690134629), (+1.6742227575271365, +0.60567782471438636), (+1.4001605785260964, +0.80397596152963358), (+1.2470547069039295, +0.42867918723350817), (+1.7129116881476465, +0.10414760050142904), (+1.5070413167260692, +0.28828203210885917E-1), (+1.2965250459633697, +0.85821278861288430), (+1.3687000319756706, +0.65906946764439145E-1), (+1.8872255173648453, +0.83128624573556376), (+1.7562863429155167, +0.99121238871939843), (+1.0664040637228998, +0.34681565831853123), (+1.0047404319634652, +0.82958391648431440E-1), (+1.4088562048260835, +0.94558199546248733), (+1.9299703843508331, +0.95202281046226389), (+1.0348223578356457, +0.58213607581889126), (+1.2125539065687874, +0.43483103724529071), (+1.2590998205286681, +0.51952896866446097), (+1.7107815983748405, +0.89133889091815188), (+1.5059517846677224, +0.67098861817242250), (+1.6508009392918681, +0.95887754050158225), (+1.2450360855349416, +0.81350441467168966E-1), (+1.9029359027658113, +0.43518682590175028), (+1.4319382461588492, +0.14571137656727531), (+1.6985276889080780, +0.16839917563199015E-1), (+1.3848787184018903, +0.65206667423230591), (+1.8855610668344662, +0.23230106876993467), (+1.2357480417448934, +0.89210289676039456), (+1.7016854283467180, +0.24624239730838415), (+1.0377539632576378, +0.85795518155155381), (+1.3478575622296796, +0.97110770078291142), (+1.4920051155401968, +0.43248412717440643), (+1.4717958755529144, +0.30216813558051725), (+1.4461330223687121, +0.82492325136094347), (+1.8361410784578971, +0.28600261987114939), (+1.2275698262512085, +0.66222473806245818), (+1.3879388270658695, +0.58593402288056784), (+1.1132009587605936, +0.19667370010930577), (+1.1573684335631560, +0.73980499294341096), (+1.2035874480300022, +0.48036463792654582E-1), (+1.2397983916540225, +0.47109737210932345), (+1.3767244612989931, +0.39019463384220343), (+1.6182254864285488, +0.11889648935721092), (+1.1189110487929945, +0.73272910247551570), (+1.6428269110606080, +0.60779811005955109), (+1.8215674500481129, +0.36600127136069549), (+1.9177565109105612, +0.69429533373134655), (+1.1273163844108156, +0.62233669423932270E-1), (+1.6806358075557690, +0.34364922791661556), (+1.4550372423722924, +0.67598679145370488E-1), (+1.7954886438153443, +0.85116879056934924), (+1.1304208177564172, +0.44862574147339196), (+1.0716553252994585, +0.87936100718147947), (+1.8898856849318317, +0.31686094434058715), (+1.9587111296410036, +0.20346912577117293E-1), (+1.8566830088096544, +0.54788672588777088), (+1.3786832597804817, +0.77184575254754950), (+1.2117629919132007, +0.31018021530939671), (+1.1769509233597046, +0.94818079956125689), (+1.4904098218683444, +0.15401778940863592), (+1.8113543334186448, +0.13630348881240953), (+1.9038467314902927, +0.72236093790596889), (+1.9098839372899141, +0.26064240844400621), (+1.4074289680246443, +0.52382114009706537), (+1.7629991972777441, +0.51082315530965872E-2), (+1.3023524499208790, +0.11685119937384086), (+1.8783136342761204, +0.83942657105322138), (+1.2956742901281642, +0.88608664306275742), (+1.3655886886087090, +0.68982100185881745), (+1.3370516445500065, +0.59315763199150906), (+1.2066424914960858, +0.55727944184971756), (+1.4430466307680982, +0.66541517813125584), (+1.0800192428581257, +0.75399033534746551), (+1.8785224345911911, +0.14939851919146874), (+1.2281886819482279, +0.10623465918951597), (+1.4470702409136580, +0.16148667823919449), (+1.4232976516481310, +0.90750415420788000), (+1.9863135971629464, +0.41707833875908318E-1), (+1.5088966577513190, +0.91107874373663367), (+1.6955479955824631, +0.94454579170242436), (+1.4785218176859005, +0.14580197988398436), (+1.0900319998407642, +0.44600507773430137), (+1.7492064507604537, +0.47752550628315521), (+1.9597307326970510, +0.16275378397246770), (+1.8610427163628533, +0.47520530534159466), (+1.7574096506622898, +0.89991806425554055), (+1.9643098934661771, +0.69732859646448164), (+1.2710855557307303, +0.34606355910915398), (+1.0409224443107945, +0.10503983522278392E-1), (+1.2623957288257277, +0.35937912782114945), (+1.3359467233859579, +0.10750219652415145), (+1.7552698104581039, +0.40844990281403887), (+1.8276342142825475, +0.31473328249253174), (-0.22204460492503131E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, -0.83266726846886741E-16), (+0.33306690738754696E-15, -0.55511151231257827E-16), (-0.22204460492503131E-15, -0.16653345369377348E-15), (-0.11102230246251565E-15, -0.22204460492503131E-15), (-0.66613381477509392E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, -0.49960036108132044E-15), (-0.44408920985006262E-15, -0.19428902930940239E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.44408920985006262E-15, -0.83266726846886741E-16), (+0.33306690738754696E-15, +0.13877787807814457E-15), (+0.77715611723760958E-15, +0.55511151231257827E-16), (-0.22204460492503131E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, +0.55511151231257827E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.55511151231257827E-15, +0.52735593669694936E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.0000000000000000), (+0.0000000000000000, +0.24980018054066022E-15), (+0.44408920985006262E-15, -0.16653345369377348E-15), (-0.33306690738754696E-15, +0.44408920985006262E-15), (+0.88817841970012523E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.83266726846886741E-15), (+0.77715611723760958E-15, +0.49960036108132044E-15)
28reltol = sqrt(epsilon(1._TKC))
29reltol
30+0.14901161193847656E-7
31isClose(data, atad(1:size(data)), reltol = reltol)
32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
34
35lenData = getUnifRand(5, 100)
36lenData
37+94
38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
39data
40(+1.58137744540308730821545819070797435, +0.823722794041979544068296393456335824), (+1.97476191357811601332135270852360933, +0.419607019508891140062833103530163614E-1), (+1.48533674874407693605287838399404330, +0.637779559632249726502678376773635828), (+1.51022917859077977256755419004320420, +0.599787584370267072352129286226820355), (+1.99773691831754847737388468961620691, +0.546493800825099167411174999532754565), (+1.55684912345032726358720404500286532, +0.451081677308674119430274559394440647), (+1.87621353749724621054355599357550298, +0.878595499706032589595529084225635771), (+1.42753087440997772968814553200311316, +0.448234263733905632004294736396421639), (+1.55331829240547601362087734378118211, +0.179378283750733073292845261662007082), (+1.81724791865667247881095376547634230, +0.433239438252530058320575196646331650), (+1.49280927517693629509972203762164185, +0.286651742530057307870559057210057093), (+1.54299741332932875292896317711128458, +0.191925278819597645498949845111519005), (+1.97025639277556354141132103118711597, +0.488012678460177780733921982527594358), (+1.83656286244135582387337793439624540, +0.362613798146197805947422443102320109), (+1.44555879616599576562396650038852099, +0.349038170410458539710580624017475095), (+1.81836765158769272881055174807984253, +0.112265023539114260077447153956168324), (+1.30833900717214018553990836180845069, +0.772696422255938925716547543910932102), (+1.35875593961325732030823707205790503, +0.776716080639945205079597591091539005), (+1.08930457182616664040102438415050254, +0.941123653615092364594992125405490356), (+1.81658330359131998625516720710415626, +0.576148947348103402953108088383742559), (+1.58594715568323986723660920215515353, +0.215860572705549049333528323959551938), (+1.41839400360175716416777485174556647, +0.556528204853333878392945176833462445), (+1.73609987159980742550282863903616923, +0.160912213071087612016102952119199293), (+1.04740555576888611779468304523916599, +0.771276917961319149656829956437488167), (+1.22751024597446824454872412767234011, +0.982367507231531242686762113297208600), (+1.84008220775597925182696397397720305, +0.223013778596148729245101428163798576), (+1.78603073277495814242839481205863287, +0.493040302430896083991593233561662351), (+1.22742716757249578126969193796389832, +0.571938415100175406169418495176361652), (+1.98308165076086268938898671997085291, +0.113737512319446415903958040018930458), (+1.32435770329047351292413324739144744, +0.935020981274356059837157266294192612), (+1.54767593837858445443958111638441575, +0.936396215633749660895791108096959567), (+1.61841065554236683682930156736644867, +0.281132002544681089813888474836364038E-1), (+1.69620106252567058746306840801629948, +0.895430406785462634276299971051303038), (+1.13905175039232526470306464067696516, +0.841781360845864545946091202217795526), (+1.04450399063964760236113949877286388, +0.479176138032050700926303498643594939), (+1.81724537789018658858494453683001421, +0.545155219936255675780596039982498443E-1), (+1.96182218549528553780580127462164582, +0.695409481628030565687304416411106090), (+1.84681286298724970641205148499336207, +0.936630967813045962381100787335989479), (+1.12703734148081967828803399293951059, +0.601204458608607371250405435516055756), (+1.58675406944240403345648045659306972, +0.303070862825215236798927757649406381), (+1.17833373959922224039559428970459351, +0.921890862806169974735563666087046704), (+1.50596902318901193374628024040100893, +0.212744600727332235746086617437875885), (+1.52173139040067907695172352587261126, +0.734234996866485231649711725489247739), (+1.34087892723465428842777182087989886, +0.528067470654505100549005843482843481), (+1.73546382691386694365197898069269540, +0.760402773880524366345248166648171838), (+1.37455605810172861335233793490930444, +0.383373607812409392910910387354017766), (+1.85047535792270132205956807967200357, +0.788824095564329538910797264427149316), (+1.81610589117745339163716495694809364, +0.876265533892514009486316072701137204), (+1.49289045243939128140333623703563942, +0.816490698942520178665088170449230257), (+1.73296097817493589421514161139477582, +0.632486331651722828501843614760416498), (+1.67278203217701587311449671732343723, +0.960466732250254028733729683086659999), (+1.78265652542641807679472867738803348, +0.700917149386540275260870315126325616), (+1.29565779094569756503289423450214782, +0.972449648200427505534437857935875881), (+1.14103982574504861099088065368184623, +0.213292425033118624624085940703509422), (+1.38909749995828353826710649493660139, +0.396822537301963901718712710848185828), (+1.98477356561047496650594114411555775, +0.461803214749251583726762186692057721), (+1.82859026217538143576927365597834125, +0.976605836815065484710650192685766285), (+1.07231254207862450595450404084352041, +0.855672693015413879217461186032093121), (+1.19310980266576090986295386099174866, +0.681469774778055169336355524442510566), (+1.64127673796827092767056435139379417, +0.630183192624518771039961078679523593), (+1.03251812040280275246682704820205366, +0.740475106804379989934767346063503596), (+1.36548038713078668699417585976193111, +0.926485838308964345551950178700824997), (+1.34365680215886485461833663346556843, +0.804726287404171814027718012912946362), (+1.26172281674794291075474551848644017, +0.686916315186023824828550953485890032), (+1.54470688064874558549429756000728823, +0.611604726196669152880598536870202433), (+1.79489174455637382080962681975519315, +0.179815347014689855724549861436530380), (+1.62651362821320477067114930481858288, +0.491759886275601374918238450993932836), (+1.90349218013788951991193674999418571, +0.567871428871071855234249080760305542), (+1.80944296879996297228225221738665587, +0.995123915823718678160802826514279561), (+1.96613804245468147707602530217535209, +0.785198269837060950833193998025631082), (+1.74919790612779136917539822486358138, +0.659333901673324527113113304693549467), (+1.20753052348624644195418947427121597, +0.441161220649230091107796217198570482), (+1.74812271846434136397732840552447481, +0.918371052144661053481834509465180746E-1), (+1.64642591253451313095978356362662952, +0.165969044324074668831189052753431689), (+1.00171360392097277322135108630924924, +0.940157968168365439495563082832810125), (+1.69524265149838091113627748900174004, +0.262305631410678366336758031262197869), (+1.92366787178098770474561417520816441, +0.456775396097294383546618457948999319), (+1.86658134491785567413179614100992070, +0.925432311701826677150456459882621050), (+1.16911292982377932703118932319809710, +0.532084636312437398836298829318786803), (+1.46171884844137386267839252765249000, +0.763529040538927341784481032346994883), (+1.14394373543746922249916063639166288, +0.510282563636401823536552504718615290), (+1.01303860507050996718370870923950284, +0.670204213897876440333175671036907541), (+1.50887784768826388767491964210665884, +0.792696596083960711406650440651631617E-2), (+1.35000709289570455394729001792428303, +0.275372171081184734803826389418729901), (+1.24916713944963712614390766092626321, +0.819415483277933230741267670987340357), (+1.01035726987736912879575263935358584, +0.963482910899966938347583381462343569), (+1.57855519312774899471546814031812934, +0.932022477527595180244003874847545223), (+1.68644893760058469377708701023081321, +0.735408067755296549008860250556651447), (+1.12670870827011514788924360997984344, +0.967400459177485711082448992225803125E-1), (+1.37781167214967403302260605349476043, +0.817941474644904838338379412608821669), (+1.73381638492139027848420913180349336, +0.934843061995021241653092031213219028), (+1.00744914242393767957728003665784062, +0.809300825803053311906422101977681546), (+1.31733966900349638127129979497385240, +0.859043319492658187818306740302679397), (+1.48512673600572780618021826546226663, +0.330806336913543147896980649627646476)
41
42atad = getFFTI(getFFTF(data))
43atad
44(+1.58137744540308730821545819070797415, +0.823722794041979544068296393456335824), (+1.97476191357811601332135270852360971, +0.419607019508891140062833103530158920E-1), (+1.48533674874407693605287838399404369, +0.637779559632249726502678376773635828), (+1.51022917859077977256755419004320420, +0.599787584370267072352129286226820355), (+1.99773691831754847737388468961620652, +0.546493800825099167411174999532754372), (+1.55684912345032726358720404500286513, +0.451081677308674119430274559394440262), (+1.87621353749724621054355599357550336, +0.878595499706032589595529084225635771), (+1.42753087440997772968814553200311277, +0.448234263733905632004294736396421591), (+1.55331829240547601362087734378118269, +0.179378283750733073292845261662007130), (+1.81724791865667247881095376547634287, +0.433239438252530058320575196646331650), (+1.49280927517693629509972203762164223, +0.286651742530057307870559057210057093), (+1.54299741332932875292896317711128477, +0.191925278819597645498949845111518812), (+1.97025639277556354141132103118711597, +0.488012678460177780733921982527594262), (+1.83656286244135582387337793439624579, +0.362613798146197805947422443102319964), (+1.44555879616599576562396650038852118, +0.349038170410458539710580624017475192), (+1.81836765158769272881055174807984233, +0.112265023539114260077447153956168227), (+1.30833900717214018553990836180845049, +0.772696422255938925716547543910932102), (+1.35875593961325732030823707205790523, +0.776716080639945205079597591091538908), (+1.08930457182616664040102438415050235, +0.941123653615092364594992125405490452), (+1.81658330359131998625516720710415626, +0.576148947348103402953108088383742366), (+1.58594715568323986723660920215515315, +0.215860572705549049333528323959551842), (+1.41839400360175716416777485174556647, +0.556528204853333878392945176833462445), (+1.73609987159980742550282863903616961, +0.160912213071087612016102952119199052), (+1.04740555576888611779468304523916542, +0.771276917961319149656829956437487878), (+1.22751024597446824454872412767233992, +0.982367507231531242686762113297208697), (+1.84008220775597925182696397397720343, +0.223013778596148729245101428163798384), (+1.78603073277495814242839481205863306, +0.493040302430896083991593233561662447), (+1.22742716757249578126969193796389813, +0.571938415100175406169418495176361652), (+1.98308165076086268938898671997085272, +0.113737512319446415903958040018930458), (+1.32435770329047351292413324739144744, +0.935020981274356059837157266294192708), (+1.54767593837858445443958111638441633, +0.936396215633749660895791108096959856), (+1.61841065554236683682930156736644867, +0.281132002544681089813888474836362052E-1), (+1.69620106252567058746306840801629948, +0.895430406785462634276299971051303231), (+1.13905175039232526470306464067696536, +0.841781360845864545946091202217795622), (+1.04450399063964760236113949877286388, +0.479176138032050700926303498643594843), (+1.81724537789018658858494453683001459, +0.545155219936255675780596039982496276E-1), (+1.96182218549528553780580127462164582, +0.695409481628030565687304416411106186), (+1.84681286298724970641205148499336207, +0.936630967813045962381100787335989575), (+1.12703734148081967828803399293951097, +0.601204458608607371250405435516055756), (+1.58675406944240403345648045659306972, +0.303070862825215236798927757649406188), (+1.17833373959922224039559428970459371, +0.921890862806169974735563666087046897), (+1.50596902318901193374628024040100931, +0.212744600727332235746086617437875909), (+1.52173139040067907695172352587261165, +0.734234996866485231649711725489248124), (+1.34087892723465428842777182087989905, +0.528067470654505100549005843482843674), (+1.73546382691386694365197898069269559, +0.760402773880524366345248166648172223), (+1.37455605810172861335233793490930444, +0.383373607812409392910910387354017959), (+1.85047535792270132205956807967200395, +0.788824095564329538910797264427149509), (+1.81610589117745339163716495694809364, +0.876265533892514009486316072701137300), (+1.49289045243939128140333623703563923, +0.816490698942520178665088170449230354), (+1.73296097817493589421514161139477640, +0.632486331651722828501843614760416595), (+1.67278203217701587311449671732343723, +0.960466732250254028733729683086660288), (+1.78265652542641807679472867738803368, +0.700917149386540275260870315126325712), (+1.29565779094569756503289423450214802, +0.972449648200427505534437857935875977), (+1.14103982574504861099088065368184623, +0.213292425033118624624085940703509253), (+1.38909749995828353826710649493660159, +0.396822537301963901718712710848186021), (+1.98477356561047496650594114411555814, +0.461803214749251583726762186692057528), (+1.82859026217538143576927365597834145, +0.976605836815065484710650192685766381), (+1.07231254207862450595450404084352041, +0.855672693015413879217461186032093506), (+1.19310980266576090986295386099174846, +0.681469774778055169336355524442510855), (+1.64127673796827092767056435139379417, +0.630183192624518771039961078679523882), (+1.03251812040280275246682704820205328, +0.740475106804379989934767346063503789), (+1.36548038713078668699417585976193111, +0.926485838308964345551950178700825575), (+1.34365680215886485461833663346556862, +0.804726287404171814027718012912946459), (+1.26172281674794291075474551848644017, +0.686916315186023824828550953485890129), (+1.54470688064874558549429756000728785, +0.611604726196669152880598536870202433), (+1.79489174455637382080962681975519334, +0.179815347014689855724549861436530188), (+1.62651362821320477067114930481858288, +0.491759886275601374918238450993932932), (+1.90349218013788951991193674999418571, +0.567871428871071855234249080760305734), (+1.80944296879996297228225221738665568, +0.995123915823718678160802826514279369), (+1.96613804245468147707602530217535228, +0.785198269837060950833193998025631082), (+1.74919790612779136917539822486358176, +0.659333901673324527113113304693549563), (+1.20753052348624644195418947427121558, +0.441161220649230091107796217198570627), (+1.74812271846434136397732840552447500, +0.918371052144661053481834509465181227E-1), (+1.64642591253451313095978356362662971, +0.165969044324074668831189052753431616), (+1.00171360392097277322135108630924924, +0.940157968168365439495563082832810318), (+1.69524265149838091113627748900174023, +0.262305631410678366336758031262198061), (+1.92366787178098770474561417520816441, +0.456775396097294383546618457948999415), (+1.86658134491785567413179614100992089, +0.925432311701826677150456459882621339), (+1.16911292982377932703118932319809710, +0.532084636312437398836298829318786900), (+1.46171884844137386267839252765248961, +0.763529040538927341784481032346994980), (+1.14394373543746922249916063639166268, +0.510282563636401823536552504718615194), (+1.01303860507050996718370870923950284, +0.670204213897876440333175671036907541), (+1.50887784768826388767491964210665865, +0.792696596083960711406650440651631617E-2), (+1.35000709289570455394729001792428264, +0.275372171081184734803826389418730093), (+1.24916713944963712614390766092626301, +0.819415483277933230741267670987340357), (+1.01035726987736912879575263935358584, +0.963482910899966938347583381462344051), (+1.57855519312774899471546814031812992, +0.932022477527595180244003874847545415), (+1.68644893760058469377708701023081359, +0.735408067755296549008860250556651736), (+1.12670870827011514788924360997984344, +0.967400459177485711082448992225803125E-1), (+1.37781167214967403302260605349476023, +0.817941474644904838338379412608822151), (+1.73381638492139027848420913180349317, +0.934843061995021241653092031213219124), (+1.00744914242393767957728003665784023, +0.809300825803053311906422101977682027), (+1.31733966900349638127129979497385220, +0.859043319492658187818306740302679301), (+1.48512673600572780618021826546226663, +0.330806336913543147896980649627646524), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.343056271343976386325596071022940179E-33), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-34), (-0.481482486096808963263994485646231830E-33, +0.120370621524202240815998621411557957E-33), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.168518870133883137142398069976181140E-33), (-0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33), (-0.674075480535532548569592279904724561E-33, -0.433334237487128066937595037081608647E-33), (-0.105926146941297971918078786842171003E-32, -0.216667118743564033468797518540804323E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, +0.722223729145213444895991728469347744E-34), (-0.385185988877447170611195588516985464E-33, +0.722223729145213444895991728469347744E-34), (-0.674075480535532548569592279904724561E-33, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.337037740267766274284796139952362281E-33), (-0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33), (-0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33), (+0.00000000000000000000000000000000000, -0.433334237487128066937595037081608647E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33)
45reltol = sqrt(epsilon(1._TKC))
46reltol
47+0.138777878078144567552953958511352539E-16
48isClose(data, atad(1:size(data)), reltol = reltol)
49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
51
52lenData = getUnifRand(5, 100)
53lenData
54+87
55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
56data
57+1.54885757, +1.99516797, +1.20235443, +1.74182057, +1.70792234, +1.87605000, +1.44633460, +1.28982306, +1.34182394, +1.91933918, +1.75639963, +1.32545388, +1.73148727, +1.28379655, +1.51580095, +1.86146688, +1.54906750, +1.43667841, +1.48923230, +1.70872211, +1.89160824, +1.38827753, +1.69013047, +1.73185468, +1.16580772, +1.09011841, +1.64465618, +1.06720471, +1.44934392, +1.22613072, +1.72460115, +1.10922253, +1.46410823, +1.08698821, +1.91045380, +1.23860669, +1.76120782, +1.15544844, +1.73103023, +1.68398023, +1.18172455, +1.65829229, +1.04132569, +1.63661468, +1.25469995, +1.49279356, +1.10785127, +1.48834193, +1.39574981, +1.40455794, +1.55935323, +1.35831642, +1.31216002, +1.54841161, +1.90228772, +1.08594525, +1.01359892, +1.36991835, +1.48395348, +1.23566866, +1.99356270, +1.92095733, +1.95125377, +1.54894996, +1.92809117, +1.67758596, +1.52654040, +1.83440757, +1.59809709, +1.27677155, +1.91167831, +1.80847383, +1.22801733, +1.90826654, +1.66557288, +1.36677766, +1.96314216, +1.87328601, +1.62268960, +1.63556075, +1.70916128, +1.75451910, +1.73888803, +1.96849585, +1.74733198, +1.20909405, +1.59626818
58
59atad = getFFTI(getFFTF(data))
60atad
61+1.54885769, +1.99516773, +1.20235431, +1.74182022, +1.70792210, +1.87604976, +1.44633412, +1.28982282, +1.34182405, +1.91933906, +1.75639963, +1.32545364, +1.73148739, +1.28379619, +1.51580095, +1.86146665, +1.54906726, +1.43667829, +1.48923242, +1.70872188, +1.89160824, +1.38827765, +1.69013023, +1.73185432, +1.16580772, +1.09011817, +1.64465618, +1.06720483, +1.44934416, +1.22613072, +1.72460091, +1.10922253, +1.46410823, +1.08698797, +1.91045392, +1.23860621, +1.76120782, +1.15544820, +1.73102999, +1.68397987, +1.18172479, +1.65829206, +1.04132581, +1.63661456, +1.25470042, +1.49279344, +1.10785151, +1.48834181, +1.39574981, +1.40455770, +1.55935347, +1.35831618, +1.31216002, +1.54841173, +1.90228724, +1.08594513, +1.01359880, +1.36991811, +1.48395312, +1.23566854, +1.99356258, +1.92095733, +1.95125341, +1.54894972, +1.92809129, +1.67758560, +1.52654040, +1.83440745, +1.59809721, +1.27677155, +1.91167808, +1.80847359, +1.22801733, +1.90826643, +1.66557264, +1.36677778, +1.96314228, +1.87328637, +1.62268972, +1.63556099, +1.70916104, +1.75451910, +1.73888814, +1.96849561, +1.74733210, +1.20909417, +1.59626818, +0.119209290E-6, +0.00000000, -0.178813934E-6, +0.00000000, -0.119209290E-6, +0.00000000, +0.178813934E-6, +0.119209290E-6, +0.119209290E-6, -0.596046448E-7, -0.596046448E-7, -0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.536441803E-6, -0.178813934E-6, +0.357627869E-6, +0.596046448E-7, +0.00000000, -0.596046448E-7, +0.00000000, -0.596046448E-7, +0.119209290E-6, -0.119209290E-6, +0.178813934E-6, +0.178813934E-6, +0.596046448E-7, +0.119209290E-6, -0.298023224E-6, +0.119209290E-6, +0.357627869E-6, +0.119209290E-6, +0.298023224E-6, +0.357627869E-6, -0.298023224E-6, +0.119209290E-6, -0.119209290E-6, +0.119209290E-6, -0.119209290E-6, +0.00000000, -0.596046448E-7
62reltol = sqrt(epsilon(1._TKC))
63reltol
64+0.345266977E-3
65isClose(data, atad(1:size(data)), reltol = reltol)
66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
68
69lenData = getUnifRand(5, 100)
70lenData
71+10
72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
73data
74+1.7807353729024258, +1.9119733805367924, +1.5212854573583858, +1.6077309242641569, +1.3751443912076420, +1.1882766020497542, +1.2205759439704118, +1.5003152913466247, +1.0431295487459549, +1.0382561513231816
75
76atad = getFFTI(getFFTF(data))
77atad
78+1.7807353729024256, +1.9119733805367924, +1.5212854573583856, +1.6077309242641569, +1.3751443912076418, +1.1882766020497537, +1.2205759439704118, +1.5003152913466242, +1.0431295487459546, +1.0382561513231816, +0.11102230246251565E-15, +0.0000000000000000, +0.0000000000000000, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.44408920985006262E-15
79reltol = sqrt(epsilon(1._TKC))
80reltol
81+0.14901161193847656E-7
82isClose(data, atad(1:size(data)), reltol = reltol)
83T, T, T, T, T, T, T, T, T, T
84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
85
86lenData = getUnifRand(5, 100)
87lenData
88+58
89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
90data
91+1.01585624796178796009295920353637701, +1.90115887266938024078888633137204941, +1.50136757913442475896113463690631867, +1.81838030741092456635400204234939282, +1.38825884600379048540022547843359410, +1.29954003472676993736786511821561351, +1.17504965342325607911023658108533525, +1.75925093389362139757404035200028718, +1.73153602191750381761082908456049070, +1.18739471117482060596259595155802333, +1.78906947038188249043941663445446713, +1.05214629420447499173449352159307184, +1.04725515151419963867987603935992800, +1.46379506749937451507264752942129563, +1.24176069156488095521540659717588872, +1.81369899997699095070078790520772878, +1.39206958497586841681030488064434116, +1.22211620915608748906832105882556155, +1.47375174222560292572477842148911338, +1.57336572016747644313343866398370151, +1.75839138481804539279525884651659686, +1.92806953704527690897689754303522580, +1.21189073893392189293439129570543582, +1.73740355353791126914090842628266573, +1.87495631609895657937951213695035931, +1.84177360203661266881484787301824575, +1.55409346933769848941580379091021315, +1.34074681492604491307598544755120399, +1.90289567381917530420930605340659950, +1.24848412653547661540354220294675996, +1.32343186871132732509439871063375354, +1.02039706370490306880240179882547946, +1.07107091548876920047281349103868917, +1.17626057695698910303544098617363232, +1.39952316155826010556636315239641370, +1.13640337630919850907981149527130711, +1.20632788052555072523736087634544129, +1.78594075786774223653394495069976597, +1.69814973914988267026950932125492812, +1.10195966258093342941096226348289211, +1.33368060209786650893809044767858584, +1.65361127276020953106967389185167828, +1.92762741351299416162579984018029586, +1.45433942886767370850279982597329209, +1.62971652556587783329441033930646212, +1.85076570830221957240655049189616094, +1.44907911725396818738806731212111991, +1.80096828319912636340185601595694560, +1.82981476501731775420512578620599218, +1.08793569855586264724788191488645323, +1.20911843079735477351159749371477244, +1.12526964285949938198317319948884069, +1.12774597897659344972190879248985438, +1.87798909927297803930457035481886782, +1.37292611951617630603835123666983010, +1.69966483427943539343151884223980607, +1.67086962278867907145710232592513718, +1.48304268877851430888264414628555893
92
93atad = getFFTI(getFFTF(data))
94atad
95+1.01585624796178796009295920353637682, +1.90115887266938024078888633137204941, +1.50136757913442475896113463690631790, +1.81838030741092456635400204234939263, +1.38825884600379048540022547843359448, +1.29954003472676993736786511821561313, +1.17504965342325607911023658108533525, +1.75925093389362139757404035200028679, +1.73153602191750381761082908456049070, +1.18739471117482060596259595155802313, +1.78906947038188249043941663445446713, +1.05214629420447499173449352159307126, +1.04725515151419963867987603935992800, +1.46379506749937451507264752942129543, +1.24176069156488095521540659717588853, +1.81369899997699095070078790520772840, +1.39206958497586841681030488064434116, +1.22211620915608748906832105882556136, +1.47375174222560292572477842148911280, +1.57336572016747644313343866398370151, +1.75839138481804539279525884651659705, +1.92806953704527690897689754303522599, +1.21189073893392189293439129570543563, +1.73740355353791126914090842628266554, +1.87495631609895657937951213695035931, +1.84177360203661266881484787301824575, +1.55409346933769848941580379091021276, +1.34074681492604491307598544755120341, +1.90289567381917530420930605340659970, +1.24848412653547661540354220294675996, +1.32343186871132732509439871063375315, +1.02039706370490306880240179882547908, +1.07107091548876920047281349103868917, +1.17626057695698910303544098617363232, +1.39952316155826010556636315239641313, +1.13640337630919850907981149527130711, +1.20632788052555072523736087634544129, +1.78594075786774223653394495069976597, +1.69814973914988267026950932125492812, +1.10195966258093342941096226348289173, +1.33368060209786650893809044767858584, +1.65361127276020953106967389185167809, +1.92762741351299416162579984018029567, +1.45433942886767370850279982597329171, +1.62971652556587783329441033930646231, +1.85076570830221957240655049189616113, +1.44907911725396818738806731212111991, +1.80096828319912636340185601595694560, +1.82981476501731775420512578620599218, +1.08793569855586264724788191488645304, +1.20911843079735477351159749371477225, +1.12526964285949938198317319948884069, +1.12774597897659344972190879248985418, +1.87798909927297803930457035481886802, +1.37292611951617630603835123666982990, +1.69966483427943539343151884223980588, +1.67086962278867907145710232592513718, +1.48304268877851430888264414628555912, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34
96reltol = sqrt(epsilon(1._TKC))
97reltol
98+0.138777878078144567552953958511352539E-16
99isClose(data, atad(1:size(data)), reltol = reltol)
100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
102
103lenData = getUnifRand(5, 100)
104lenData
105+49
106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
107data
108(+1.57846475, +0.784890056), (+1.41727805, +0.306390226), (+1.58525300, +0.939272404), (+1.13782048, +0.834273577), (+1.45487738, +0.656500340), (+1.53118491, +0.448404968), (+1.49268365, +0.777093768), (+1.93747187, +0.542497516), (+1.99915957, +0.641136587), (+1.16489768, +0.939464986), (+1.83354604, +0.757745862), (+1.69547272, +0.773741007), (+1.10916829, +0.447744608), (+1.64897573, +0.877108991), (+1.30925238, +0.415051162), (+1.11919904, +0.246191323), (+1.20863509, +0.622195899), (+1.08778918, +0.832887769), (+1.66845560, +0.914922953), (+1.76144969, +0.407968342), (+1.50048208, +0.360026240), (+1.06232941, +0.194856882), (+1.66350591, +0.764153242), (+1.29833770, +0.587537348), (+1.68657351, +0.603782296), (+1.27892017, +0.108001232), (+1.23814631, +0.603155434), (+1.10994124, +0.524477601), (+1.86314607, +0.756799579), (+1.35735250, +0.193044126), (+1.90209651, +0.912851632), (+1.81145287, +0.789879918), (+1.59316194, +0.133258998), (+1.74041224, +0.218155980E-1), (+1.33484662, +0.815474272), (+1.20292950, +0.950021744), (+1.65671027, +0.750222504), (+1.36979842, +0.745978057), (+1.80721092, +0.104879320), (+1.52328634, +0.373333335), (+1.09923863, +0.997581601), (+1.49534869, +0.121284842), (+1.55918574, +0.596382797), (+1.73484612, +0.561097264E-1), (+1.58343983, +0.503193021), (+1.46353483, +0.267126381), (+1.41864586, +0.789797783), (+1.94194388, +0.264714777), (+1.84711599, +0.273770928)
109
110atad = getFFTI(getFFTF(data))
111atad
112(+1.57846498, +0.784890056), (+1.41727817, +0.306390345), (+1.58525276, +0.939272463), (+1.13782012, +0.834273696), (+1.45487738, +0.656500280), (+1.53118503, +0.448404968), (+1.49268353, +0.777093649), (+1.93747163, +0.542497396), (+1.99915957, +0.641136527), (+1.16489780, +0.939464927), (+1.83354568, +0.757745922), (+1.69547284, +0.773740947), (+1.10916853, +0.447744548), (+1.64897585, +0.877109110), (+1.30925250, +0.415051371), (+1.11919904, +0.246191472), (+1.20863533, +0.622195840), (+1.08778954, +0.832887650), (+1.66845560, +0.914922774), (+1.76144934, +0.407968163), (+1.50048220, +0.360026181), (+1.06232953, +0.194856927), (+1.66350579, +0.764153123), (+1.29833770, +0.587537169), (+1.68657351, +0.603782177), (+1.27892029, +0.108001232), (+1.23814607, +0.603155315), (+1.10994124, +0.524477541), (+1.86314607, +0.756799698), (+1.35735250, +0.193044201), (+1.90209639, +0.912851572), (+1.81145263, +0.789879799), (+1.59316230, +0.133258939), (+1.74041235, +0.218155384E-1), (+1.33484674, +0.815474212), (+1.20292962, +0.950021625), (+1.65671039, +0.750222504), (+1.36979854, +0.745978057), (+1.80721080, +0.104879409), (+1.52328634, +0.373333454), (+1.09923863, +0.997581363), (+1.49534881, +0.121284842), (+1.55918550, +0.596382558), (+1.73484600, +0.561098456E-1), (+1.58343983, +0.503193140), (+1.46353483, +0.267126381), (+1.41864586, +0.789797664), (+1.94194365, +0.264714628), (+1.84711623, +0.273770899), (+0.417232513E-6, -0.894069672E-7), (+0.238418579E-6, +0.238418579E-6), (+0.298023224E-6, +0.119209290E-6), (+0.119209290E-6, -0.596046448E-7), (+0.178813934E-6, -0.447034836E-7), (+0.596046448E-7, +0.596046448E-7), (+0.596046448E-7, +0.208616257E-6), (+0.357627869E-6, -0.596046448E-7), (+0.357627869E-6, +0.596046448E-7), (+0.178813934E-6, +0.178813934E-6), (+0.178813934E-6, +0.596046448E-7), (+0.238418579E-6, -0.178813934E-6), (+0.298023224E-6, -0.149011612E-7), (+0.238418579E-6, +0.00000000), (+0.596046448E-7, +0.298023224E-7)
113reltol = sqrt(epsilon(1._TKC))
114reltol
115+0.345266977E-3
116isClose(data, atad(1:size(data)), reltol = reltol)
117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
119
120lenData = getUnifRand(5, 100)
121lenData
122+22
123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
124data
125(+1.0664472268388434, +0.46620211792957389), (+1.0936370598059746, +0.12098971757029031), (+1.4795862719001640, +0.19358127584025264), (+1.6599721626666337, +0.84084905539606758), (+1.9634058055764418, +0.37694110045724505), (+1.8276937312352310, +0.24225701529185650), (+1.4027816056547580, +0.29269562032346208E-1), (+1.3621306264285986, +0.20820151498665262), (+1.1706540255039553, +0.62793570566760715E-1), (+1.1606030276561166, +0.30264584654032389), (+1.3678850142146510, +0.55532478327226642), (+1.9306182601186213, +0.98813030211382658), (+1.8325340225478759, +0.80975773545421126), (+1.4729449582622025, +0.72992575670582283), (+1.8851174933813535, +0.83583719479214391E-2), (+1.3454592006412351, +0.93088376940007056), (+1.2540828136137363, +0.39322571335817580), (+1.3809562029814830, +0.39805258105033570), (+1.0274783913125873, +0.67799834035843398), (+1.6039519688159176, +0.87724460498652113), (+1.8944137859237782, +0.40364572815796540), (+1.6362731100823678, +0.23450281608177792)
126
127atad = getFFTI(getFFTF(data))
128atad
129(+1.0664472268388434, +0.46620211792957383), (+1.0936370598059746, +0.12098971757029070), (+1.4795862719001636, +0.19358127584025270), (+1.6599721626666337, +0.84084905539606780), (+1.9634058055764416, +0.37694110045724510), (+1.8276937312352308, +0.24225701529185675), (+1.4027816056547575, +0.29269562032346437E-1), (+1.3621306264285982, +0.20820151498665296), (+1.1706540255039553, +0.62793570566760742E-1), (+1.1606030276561166, +0.30264584654032389), (+1.3678850142146508, +0.55532478327226631), (+1.9306182601186206, +0.98813030211382613), (+1.8325340225478759, +0.80975773545421104), (+1.4729449582622025, +0.72992575670582238), (+1.8851174933813528, +0.83583719479212379E-2), (+1.3454592006412349, +0.93088376940006989), (+1.2540828136137363, +0.39322571335817563), (+1.3809562029814830, +0.39805258105033553), (+1.0274783913125871, +0.67799834035843376), (+1.6039519688159176, +0.87724460498652090), (+1.8944137859237780, +0.40364572815796534), (+1.6362731100823680, +0.23450281608177745), (+0.11102230246251565E-15, -0.15959455978986625E-15), (+0.88817841970012523E-15, -0.44408920985006262E-15), (+0.11102230246251565E-15, +0.90205620750793969E-16), (+0.44408920985006262E-15, -0.27755575615628914E-16), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.11102230246251565E-14, +0.27755575615628914E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.99920072216264089E-15, +0.55511151231257827E-15), (+0.33306690738754696E-15, +0.13183898417423734E-15), (+0.44408920985006262E-15, +0.77715611723760958E-15)
130reltol = sqrt(epsilon(1._TKC))
131reltol
132+0.14901161193847656E-7
133isClose(data, atad(1:size(data)), reltol = reltol)
134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
136
137lenData = getUnifRand(5, 100)
138lenData
139+23
140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
141data
142(+1.33688047461329574979536016903992220, +0.941467675077033295468442284720340356), (+1.27935909640812671561304399724382342, +0.862142105814421280777811895505026861), (+1.76925076907740868211982423870447920, +0.475903684200482479680245713126550349), (+1.34066910477005718135038719463096826, +0.977674436395661806943548250514059273), (+1.80506573407794150474899132569093381, +0.280174918460203481068732417493503850), (+1.04915187699493719371304724757622527, +0.402043213995930143763622597954208644), (+1.33529245398543567908950982240839044, +0.357317924085133439356891167172420043), (+1.18595618356420789150866421661756134, +0.702835454240192179112181404485977228), (+1.97616509672815741867097988515591811, +0.358733535296022803807172268729501896), (+1.50225605240339965896001189486797294, +0.902362900381684141884381756785512754), (+1.07750918490540606348015981468478687, +0.664337157523350885860896143591226434), (+1.74852848972792573677611995410808934, +0.766419408169539084519256000993226022), (+1.69717018029950806500247495469306254, +0.954053152613250055955245938590636307), (+1.21316040244815513261139063088643955, +0.651343020013745760759977939303903504), (+1.15275981700592501115806501059126996, +0.936302054011093676272851025272770132), (+1.18273871652238346177423599442762072, +0.274411327668051599362123435977937468), (+1.86423133437355633317662421346459354, +0.968104320738983362763770738196173132), (+1.71270017886352323345578691145423186, +0.306814849643212230425948173316893766), (+1.41219312364658013796365384863909843, +0.539801928640743447209821828131665092), (+1.26092426336758282527315064135050387, +0.536934785789087861360649540948751890), (+1.01645308043268440198500693417853829, +0.890584082119648895644448555732889353), (+1.70199136587865346769997589353761796, +0.701696603377118222541906314411761678E-1), (+1.45636082808201798256991173341210086, +0.901180928599416147354802584147307774)
143
144atad = getFFTI(getFFTF(data))
145atad
146(+1.33688047461329574979536016903992258, +0.941467675077033295468442284720340452), (+1.27935909640812671561304399724382342, +0.862142105814421280777811895505026765), (+1.76925076907740868211982423870447959, +0.475903684200482479680245713126550349), (+1.34066910477005718135038719463096845, +0.977674436395661806943548250514058984), (+1.80506573407794150474899132569093381, +0.280174918460203481068732417493503802), (+1.04915187699493719371304724757622527, +0.402043213995930143763622597954208499), (+1.33529245398543567908950982240839063, +0.357317924085133439356891167172419995), (+1.18595618356420789150866421661756134, +0.702835454240192179112181404485977035), (+1.97616509672815741867097988515591811, +0.358733535296022803807172268729501944), (+1.50225605240339965896001189486797294, +0.902362900381684141884381756785512754), (+1.07750918490540606348015981468478687, +0.664337157523350885860896143591226627), (+1.74852848972792573677611995410808914, +0.766419408169539084519256000993226118), (+1.69717018029950806500247495469306216, +0.954053152613250055955245938590636211), (+1.21316040244815513261139063088643955, +0.651343020013745760759977939303903601), (+1.15275981700592501115806501059126996, +0.936302054011093676272851025272770132), (+1.18273871652238346177423599442762033, +0.274411327668051599362123435977937756), (+1.86423133437355633317662421346459374, +0.968104320738983362763770738196173132), (+1.71270017886352323345578691145423186, +0.306814849643212230425948173316893622), (+1.41219312364658013796365384863909843, +0.539801928640743447209821828131665285), (+1.26092426336758282527315064135050368, +0.536934785789087861360649540948752179), (+1.01645308043268440198500693417853810, +0.890584082119648895644448555732889257), (+1.70199136587865346769997589353761796, +0.701696603377118222541906314411761197E-1), (+1.45636082808201798256991173341210086, +0.901180928599416147354802584147307967), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (+0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, -0.312963615962925826121596415670050689E-33)
147reltol = sqrt(epsilon(1._TKC))
148reltol
149+0.138777878078144567552953958511352539E-16
150isClose(data, atad(1:size(data)), reltol = reltol)
151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
153
154lenData = getUnifRand(5, 100)
155lenData
156+96
157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
158data
159+1.23597968, +1.56459951, +1.59409940, +1.54041672, +1.31745970, +1.19896066, +1.35390520, +1.92045188, +1.78850257, +1.05907726, +1.10279989, +1.11889791, +1.83784485, +1.17335486, +1.63020051, +1.06228232, +1.70478439, +1.44853115, +1.45855474, +1.82480574, +1.48704815, +1.96668744, +1.80430400, +1.75224805, +1.49008369, +1.04828644, +1.12760592, +1.36703062, +1.28662109, +1.82675803, +1.53895140, +1.39480770, +1.59056664, +1.14361858, +1.38827443, +1.67874479, +1.17441916, +1.52264118, +1.73021352, +1.48889637, +1.51485193, +1.01330435, +1.27009058, +1.80762637, +1.14271116, +1.67386270, +1.03805089, +1.31924176, +1.48633766, +1.86280978, +1.69367099, +1.87408185, +1.26268148, +1.45463085, +1.17044711, +1.79071808, +1.25509501, +1.54239523, +1.79045343, +1.93983042, +1.68567371, +1.78068304, +1.81812823, +1.38369429, +1.97624326, +1.22549415, +1.48299539, +1.31248569, +1.91284859, +1.08905864, +1.27028787, +1.36056089, +1.45397329, +1.84241951, +1.12666082, +1.62827826, +1.96187580, +1.91030490, +1.63237548, +1.43527126, +1.26083422, +1.25168121, +1.70435500, +1.39777744, +1.45227671, +1.56258845, +1.14946413, +1.36172020, +1.64162922, +1.39691639, +1.70561576, +1.27463531, +1.21746826, +1.37719762, +1.20340848, +1.36217797
160
161atad = getFFTI(getFFTF(data))
162atad
163+1.23597956, +1.56459939, +1.59409916, +1.54041696, +1.31745946, +1.19896042, +1.35390508, +1.92045164, +1.78850269, +1.05907714, +1.10280001, +1.11889815, +1.83784497, +1.17335463, +1.63020015, +1.06228232, +1.70478427, +1.44853115, +1.45855427, +1.82480586, +1.48704803, +1.96668732, +1.80430388, +1.75224805, +1.49008369, +1.04828656, +1.12760603, +1.36703062, +1.28662121, +1.82675803, +1.53895128, +1.39480770, +1.59056652, +1.14361835, +1.38827419, +1.67874479, +1.17441893, +1.52264094, +1.73021352, +1.48889601, +1.51485217, +1.01330411, +1.27009046, +1.80762625, +1.14271092, +1.67386246, +1.03805077, +1.31924152, +1.48633742, +1.86280966, +1.69367075, +1.87408185, +1.26268125, +1.45463073, +1.17044711, +1.79071760, +1.25509501, +1.54239488, +1.79045320, +1.93983030, +1.68567348, +1.78068292, +1.81812811, +1.38369417, +1.97624326, +1.22549403, +1.48299539, +1.31248569, +1.91284859, +1.08905852, +1.27028811, +1.36056066, +1.45397353, +1.84241951, +1.12666070, +1.62827826, +1.96187580, +1.91030478, +1.63237548, +1.43527102, +1.26083434, +1.25168085, +1.70435500, +1.39777744, +1.45227683, +1.56258833, +1.14946437, +1.36172009, +1.64162898, +1.39691627, +1.70561564, +1.27463531, +1.21746838, +1.37719762, +1.20340860, +1.36217797, -0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.238418579E-6, +0.596046448E-7, +0.357627869E-6, +0.119209290E-6, +0.596046448E-6, +0.119209290E-6, -0.119209290E-6, +0.00000000, +0.238418579E-6, -0.238418579E-6, +0.238418579E-6, -0.119209290E-6, +0.536441803E-6, +0.238418579E-6, +0.596046448E-7, +0.238418579E-6, +0.178813934E-6, +0.178813934E-6, +0.357627869E-6, +0.298023224E-6, +0.238418579E-6, +0.298023224E-6, -0.178813934E-6, +0.476837158E-6, -0.596046448E-7, -0.596046448E-7, +0.00000000, +0.178813934E-6, +0.596046448E-7
164reltol = sqrt(epsilon(1._TKC))
165reltol
166+0.345266977E-3
167isClose(data, atad(1:size(data)), reltol = reltol)
168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
170
171lenData = getUnifRand(5, 100)
172lenData
173+44
174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
175data
176+1.4285931680830877, +1.3313882372504400, +1.0493905717209908, +1.6636013830165699, +1.4680758764357820, +1.2501415224394332, +1.0323908368028656, +1.0710252683265722, +1.7543911474450902, +1.4952659519034501, +1.4331215522262688, +1.1830912695784948, +1.7509322147255300, +1.4709215647456373, +1.4245857063619647, +1.8762006813757486, +1.2533885759047310, +1.6931754626980731, +1.4096753075255335, +1.3537909213485335, +1.5725888946640518, +1.7634839665305242, +1.4343209234013239, +1.4126342428322922, +1.4071625800082637, +1.5628687610472713, +1.4998156678931982, +1.5558276112050404, +1.2015644153991434, +1.8312873851163101, +1.7034489963576336, +1.2471270309933535, +1.6430409541770126, +1.1241170790472106, +1.4742695600038616, +1.4305745526944829, +1.0561722196368442, +1.3537447289390858, +1.1696842264840916, +1.1370647958006046, +1.2981348642651795, +1.1086893303670429, +1.0363619406944613, +1.1475678684173602
177
178atad = getFFTI(getFFTF(data))
179atad
180+1.4285931680830877, +1.3313882372504402, +1.0493905717209906, +1.6636013830165699, +1.4680758764357820, +1.2501415224394334, +1.0323908368028654, +1.0710252683265722, +1.7543911474450899, +1.4952659519034506, +1.4331215522262686, +1.1830912695784948, +1.7509322147255293, +1.4709215647456375, +1.4245857063619640, +1.8762006813757486, +1.2533885759047310, +1.6931754626980731, +1.4096753075255331, +1.3537909213485333, +1.5725888946640512, +1.7634839665305240, +1.4343209234013234, +1.4126342428322920, +1.4071625800082637, +1.5628687610472713, +1.4998156678931980, +1.5558276112050402, +1.2015644153991429, +1.8312873851163101, +1.7034489963576331, +1.2471270309933531, +1.6430409541770126, +1.1241170790472106, +1.4742695600038613, +1.4305745526944826, +1.0561722196368439, +1.3537447289390856, +1.1696842264840914, +1.1370647958006042, +1.2981348642651795, +1.1086893303670431, +1.0363619406944617, +1.1475678684173598, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.99920072216264089E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, +0.77715611723760958E-15
181reltol = sqrt(epsilon(1._TKC))
182reltol
183+0.14901161193847656E-7
184isClose(data, atad(1:size(data)), reltol = reltol)
185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
187
188lenData = getUnifRand(5, 100)
189lenData
190+10
191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
192data
193+1.55051555984943646779794957024115283, +1.11639502321395184054938459481674018, +1.28479355071199730213642598600128039, +1.30614206583315626861725025938739322, +1.50474506880787757612257398483348089, +1.26608906266095394977306355470543766, +1.21196296117749500068661142173998758, +1.27500191446737732257661707537860898, +1.55145127879310089456710825964046923, +1.76850360895087147659846697750546700
194
195atad = getFFTI(getFFTF(data))
196atad
197+1.55051555984943646779794957024115264, +1.11639502321395184054938459481674018, +1.28479355071199730213642598600128039, +1.30614206583315626861725025938739322, +1.50474506880787757612257398483348089, +1.26608906266095394977306355470543728, +1.21196296117749500068661142173998758, +1.27500191446737732257661707537860879, +1.55145127879310089456710825964046923, +1.76850360895087147659846697750546700, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000
198reltol = sqrt(epsilon(1._TKC))
199reltol
200+0.138777878078144567552953958511352539E-16
201isClose(data, atad(1:size(data)), reltol = reltol)
202T, T, T, T, T, T, T, T, T, T
203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
204
205lenData = getUnifRand(5, 100)
206lenData
207+20
208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
209data
210(+1.41815686, +0.202290416), (+1.49589729, +0.310137391), (+1.75358725, +0.634039760), (+1.90805876, +0.353590190), (+1.48987710, +0.508461475), (+1.84893131, +0.174402893), (+1.79605317, +0.981203318E-1), (+1.93734384, +0.221400619), (+1.14949870, +0.326178849), (+1.08263218, +0.132607639), (+1.85918140, +0.438870072), (+1.01336169, +0.480758607), (+1.27273476, +0.320821285), (+1.64116812, +0.835386634), (+1.41020179, +0.901661456), (+1.96770346, +0.526966214), (+1.50035548, +0.996739864), (+1.19181442, +0.106471777), (+1.85772562, +0.189901352), (+1.32787609, +0.259395242E-1)
211
212atad = getFFTI(getFFTF(data))
213atad
214(+1.41815686, +0.202290535), (+1.49589717, +0.310137361), (+1.75358725, +0.634039879), (+1.90805852, +0.353590280), (+1.48987699, +0.508461535), (+1.84893107, +0.174402982), (+1.79605293, +0.981204957E-1), (+1.93734360, +0.221400768), (+1.14949870, +0.326178849), (+1.08263230, +0.132607669), (+1.85918128, +0.438870102), (+1.01336145, +0.480758578), (+1.27273464, +0.320821226), (+1.64116812, +0.835386395), (+1.41020155, +0.901661396), (+1.96770334, +0.526966095), (+1.50035548, +0.996739864), (+1.19181454, +0.106471658), (+1.85772562, +0.189901367), (+1.32787621, +0.259394348E-1), (+0.596046448E-7, -0.596046448E-7), (+0.298023224E-6, -0.149011612E-6), (+0.178813934E-6, -0.745058060E-7), (+0.238418579E-6, -0.186264515E-6), (+0.596046448E-7, +0.149011612E-7), (+0.596046448E-7, -0.745058060E-8), (+0.119209290E-6, -0.298023224E-7), (+0.596046448E-7, +0.298023224E-7), (+0.00000000, +0.447034836E-7), (+0.178813934E-6, +0.119209290E-6), (+0.238418579E-6, -0.119209290E-6), (+0.238418579E-6, +0.119209290E-6)
215reltol = sqrt(epsilon(1._TKC))
216reltol
217+0.345266977E-3
218isClose(data, atad(1:size(data)), reltol = reltol)
219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
221
222lenData = getUnifRand(5, 100)
223lenData
224+91
225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
226data
227(+1.9078292788282563, +0.10629116907452696), (+1.2488199417641155, +0.21174668268740160), (+1.1284737929588888, +0.29732318126422597), (+1.5707402855492276, +0.54796669322752101), (+1.1925784803582338, +0.24417931045939145E-2), (+1.0361157607910785, +0.95882050479462499), (+1.8266242871502534, +0.93688840116709371), (+1.5736154762394081, +0.82027055172583696), (+1.6703878869287856, +0.65041531401112040), (+1.2722906974845252, +0.18608067290110364), (+1.4706318774714071, +0.98904366145517730), (+1.5822475075479985, +0.45240247918917353), (+1.9034636234841549, +0.53620445214898393E-1), (+1.0430153560324198, +0.51987949285848623), (+1.0162835560973009, +0.55528531798970371), (+1.8225940061382953, +0.38520870522392447), (+1.4119015502783219, +0.77037138434729024), (+1.7675868878199665, +0.19840709945073642), (+1.4445599994573228, +0.66263072279141666), (+1.8332885899379914, +0.17725812150973141), (+1.4482724681007642, +0.72065954617429284), (+1.8032901089935365, +0.85184296371860635), (+1.1607802804036536, +0.20397432610396726E-1), (+1.5933788284243500, +0.19917615174714876), (+1.3653739488165428, +0.29927022189891839), (+1.2501468822907837, +0.99247880102976427), (+1.7886671406119421, +0.28999034911739874), (+1.1174828720611987, +0.16292473023221743), (+1.7420368575135390, +0.66295647629213905), (+1.3851665453901911, +0.54535696642236298), (+1.2865397001001568, +0.56260420113998499), (+1.2620595885660042, +0.51439780849908123), (+1.8413442464464311, +0.21162500867897160), (+1.1791604919722221, +0.82906112814644439E-1), (+1.4171559016397739, +0.59988451120704855), (+1.0735178175879949, +0.89660108621791501), (+1.8409234760374296, +0.92903320124050581), (+1.2540540945576950, +0.29569786976962198), (+1.1989116318816635, +0.41262978294152985), (+1.1521461753374287, +0.28791824757277618), (+1.6851776202249320, +0.75356915947039260), (+1.8529735839751886, +0.82587492640008686), (+1.6116441061084070, +0.14835577410891254E-1), (+1.3369802178224426, +0.73587063469558323), (+1.8341602878008503, +0.25242631868923682), (+1.6566910301251161, +0.15266848647328313), (+1.0579293158400263, +0.72203585356231059E-1), (+1.6090137100274444, +0.20918862950451844), (+1.0040056916340734, +0.50749619735096563), (+1.9229231721591691, +0.89775779951402224), (+1.5704506367732609, +0.71230240728783956), (+1.0278066732373097, +0.25686868039238797), (+1.0070710165991239, +0.98953232278786940E-1), (+1.3919258790982372, +0.99251360235552266), (+1.7005844249227482, +0.45861476530690515), (+1.6664822860895905, +0.99197122580865382), (+1.1145805587599860, +0.81098748027210510E-1), (+1.5886369147121346, +0.87588489388359569), (+1.1472691143362606, +0.68348403503162114), (+1.2057467769357584, +0.35036610402111767), (+1.5680504391359671, +0.81218533676665616), (+1.4112672116710887, +0.59174272606446343), (+1.6453824500488494, +0.24391011582522515), (+1.1186707027889602, +0.10777260680710277E-1), (+1.2389487389452079, +0.62953199417911365), (+1.4310586269805610, +0.50546548287731252), (+1.6524461621061941, +0.80824477486492685), (+1.1015890975693305, +0.24746148756811803E-1), (+1.4919685812200805, +0.18141714706013046), (+1.2094736892536906, +0.73345567143791657), (+1.9149624586681673, +0.91246038127944262), (+1.4260729959104754, +0.70531496778819336), (+1.6799282052698774, +0.18999382051135161E-1), (+1.1137979956534076, +0.92759953466052747), (+1.3595420737423405, +0.82398626208337666), (+1.9984954270010862, +0.49478657009537008), (+1.4150235879011333, +0.98168646847135665E-1), (+1.3216423240030928, +0.76721059875580200), (+1.7644112152464970, +0.35284279933807960), (+1.3646755985174899, +0.34966189174534457), (+1.0775536002699964, +0.15875489173527335), (+1.1855163378403715, +0.21387720714288927), (+1.0832301583163024, +0.95245964173751085), (+1.1465266628252988, +0.75777702643165723), (+1.2896845410646240, +0.74275481275394062), (+1.2947571457669480, +0.24145988555573639), (+1.0106521141194846, +0.40692484885247948), (+1.5721823935748960, +0.72386249173338368), (+1.4339706902276745, +0.40167466957238229), (+1.3464854903285581, +0.11719300151827017), (+1.6527788377359627, +0.55383099564391491)
228
229atad = getFFTI(getFFTF(data))
230atad
231(+1.9078292788282560, +0.10629116907452696), (+1.2488199417641159, +0.21174668268740171), (+1.1284737929588886, +0.29732318126422613), (+1.5707402855492278, +0.54796669322752156), (+1.1925784803582340, +0.24417931045938868E-2), (+1.0361157607910787, +0.95882050479462522), (+1.8266242871502529, +0.93688840116709404), (+1.5736154762394083, +0.82027055172583707), (+1.6703878869287863, +0.65041531401112063), (+1.2722906974845254, +0.18608067290110364), (+1.4706318774714071, +0.98904366145517730), (+1.5822475075479985, +0.45240247918917392), (+1.9034636234841547, +0.53620445214898740E-1), (+1.0430153560324198, +0.51987949285848656), (+1.0162835560973007, +0.55528531798970426), (+1.8225940061382955, +0.38520870522392525), (+1.4119015502783223, +0.77037138434729036), (+1.7675868878199665, +0.19840709945073645), (+1.4445599994573226, +0.66263072279141688), (+1.8332885899379914, +0.17725812150973186), (+1.4482724681007642, +0.72065954617429284), (+1.8032901089935360, +0.85184296371860635), (+1.1607802804036531, +0.20397432610397115E-1), (+1.5933788284243497, +0.19917615174714898), (+1.3653739488165426, +0.29927022189891839), (+1.2501468822907840, +0.99247880102976416), (+1.7886671406119423, +0.28999034911739885), (+1.1174828720611987, +0.16292473023221737), (+1.7420368575135385, +0.66295647629213894), (+1.3851665453901911, +0.54535696642236320), (+1.2865397001001562, +0.56260420113998488), (+1.2620595885660040, +0.51439780849908123), (+1.8413442464464311, +0.21162500867897127), (+1.1791604919722221, +0.82906112814644259E-1), (+1.4171559016397737, +0.59988451120704833), (+1.0735178175879949, +0.89660108621791490), (+1.8409234760374300, +0.92903320124050548), (+1.2540540945576950, +0.29569786976962165), (+1.1989116318816631, +0.41262978294152952), (+1.1521461753374287, +0.28791824757277606), (+1.6851776202249322, +0.75356915947039238), (+1.8529735839751889, +0.82587492640008686), (+1.6116441061084066, +0.14835577410890810E-1), (+1.3369802178224428, +0.73587063469558334), (+1.8341602878008501, +0.25242631868923648), (+1.6566910301251156, +0.15266848647328307), (+1.0579293158400258, +0.72203585356230837E-1), (+1.6090137100274442, +0.20918862950451825), (+1.0040056916340738, +0.50749619735096529), (+1.9229231721591689, +0.89775779951402213), (+1.5704506367732607, +0.71230240728783922), (+1.0278066732373095, +0.25686868039238786), (+1.0070710165991239, +0.98953232278786912E-1), (+1.3919258790982370, +0.99251360235552211), (+1.7005844249227473, +0.45861476530690454), (+1.6664822860895903, +0.99197122580865327), (+1.1145805587599860, +0.81098748027210121E-1), (+1.5886369147121344, +0.87588489388359547), (+1.1472691143362601, +0.68348403503162092), (+1.2057467769357586, +0.35036610402111745), (+1.5680504391359671, +0.81218533676665550), (+1.4112672116710883, +0.59174272606446299), (+1.6453824500488490, +0.24391011582522482), (+1.1186707027889602, +0.10777260680709669E-1), (+1.2389487389452079, +0.62953199417911365), (+1.4310586269805612, +0.50546548287731263), (+1.6524461621061939, +0.80824477486492685), (+1.1015890975693308, +0.24746148756811637E-1), (+1.4919685812200811, +0.18141714706013037), (+1.2094736892536906, +0.73345567143791635), (+1.9149624586681668, +0.91246038127944240), (+1.4260729959104761, +0.70531496778819336), (+1.6799282052698779, +0.18999382051135272E-1), (+1.1137979956534074, +0.92759953466052736), (+1.3595420737423400, +0.82398626208337677), (+1.9984954270010862, +0.49478657009537014), (+1.4150235879011330, +0.98168646847135485E-1), (+1.3216423240030928, +0.76721059875580166), (+1.7644112152464966, +0.35284279933807944), (+1.3646755985174897, +0.34966189174534423), (+1.0775536002699968, +0.15875489173527307), (+1.1855163378403715, +0.21387720714288924), (+1.0832301583163022, +0.95245964173751052), (+1.1465266628252988, +0.75777702643165679), (+1.2896845410646245, +0.74275481275394029), (+1.2947571457669480, +0.24145988555573605), (+1.0106521141194849, +0.40692484885247915), (+1.5721823935748962, +0.72386249173338313), (+1.4339706902276745, +0.40167466957238218), (+1.3464854903285581, +0.11719300151826995), (+1.6527788377359625, +0.55383099564391469), (+0.66613381477509392E-15, -0.83266726846886741E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.55511151231257827E-15, -0.49960036108132044E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, -0.44408920985006262E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.20816681711721685E-15), (-0.55511151231257827E-15, +0.22204460492503131E-15), (+0.0000000000000000, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.22204460492503131E-15), (+0.33306690738754696E-15, -0.83266726846886741E-16), (-0.22204460492503131E-15, +0.22204460492503131E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.0000000000000000, -0.55511151231257827E-16), (-0.22204460492503131E-15, -0.27755575615628914E-15), (-0.33306690738754696E-15, +0.0000000000000000), (+0.0000000000000000, -0.11102230246251565E-15), (+0.11102230246251565E-15, +0.19428902930940239E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.27755575615628914E-16), (+0.33306690738754696E-15, +0.16653345369377348E-15), (+0.0000000000000000, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.49960036108132044E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.13877787807814457E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.88817841970012523E-15), (+0.22204460492503131E-15, +0.49960036108132044E-15), (+0.55511151231257827E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.44408920985006262E-15, +0.27755575615628914E-16), (+0.0000000000000000, +0.55511151231257827E-15), (+0.55511151231257827E-15, +0.61062266354383610E-15), (-0.22204460492503131E-15, +0.84654505627668186E-15), (+0.55511151231257827E-15, +0.99573127521068727E-15)
232reltol = sqrt(epsilon(1._TKC))
233reltol
234+0.14901161193847656E-7
235isClose(data, atad(1:size(data)), reltol = reltol)
236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
238
239lenData = getUnifRand(5, 100)
240lenData
241+37
242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
243data
244(+1.96060095586699722111712208880188002, +0.414791319122673479485191525686875734), (+1.77488519660314891440696816060357297, +0.407577303975207104929139792853054444E-1), (+1.88285498724277508584845533664330819, +0.148727046650551535533947470142120887), (+1.33605373149944867099973062648180976, +0.652201385722728677849516497238165511), (+1.22040989908357622828371445051824953, +0.883800611694999360991259657870964272), (+1.29847547429456842226971972272614363, +0.275513404469474607563967289507773969), (+1.36782842743783284433844911308002515, +0.691801176269002502958812329509749980), (+1.82451234188785684530081398641330184, +0.796718022349842277542140793405638025), (+1.79892318925320908147708227193748172, +0.382338930266554914921385277631847136), (+1.58414986490798852211521857920552801, +0.383765460709671509389007633517594537), (+1.67634688335125261183552129296828534, +0.175871087822986726625605090785816758), (+1.33189527940076116622652032696414861, +0.776984346310312787409723099534439553), (+1.38334920950842469088719006737852778, +0.753368182947495759524476766281465269), (+1.84527461315390691579650857620143707, +0.193074886219517994195632169848497766), (+1.16779040746660914199155157202186242, +0.422853821511692554583423458982656946), (+1.27612878464223961859863778726862738, +0.146700022622367738712365136105530785), (+1.88874396223078925383840199296552975, +0.700366441753232398283233495559269599), (+1.25071708304127403275261263756470721, +0.883739438889742316154818938686585773), (+1.49422142948620286556093448140761897, +0.268100212934289481533365593629561907), (+1.94572154575208300720505786320623001, +0.635087107938418383570403242971146724), (+1.33411395358694778689312902651102137, +0.277331838011086501799416463475168407), (+1.84371789613195203103197755484147711, +0.378883204034277440209275010472028037), (+1.03689412577966251897484801269655383, +0.887563382641034313769594395225829442), (+1.41132693409108395274955050005343116, +0.278179132116821645365761281953694048), (+1.95198533009158611625629684991932845, +0.846010657039424961418272009384775348), (+1.64204211432694973042453727562578073, +0.569496328513469173810583426606445709), (+1.95105807216635081993032804689288227, +0.211023882118547500927814652809560794), (+1.44447820020967503792324640652979294, +0.782010046452551368544273746238197462E-1), (+1.56630627344480974526112725619285606, +0.360705038989246295038827499622555759), (+1.63602054066894215377250937501129967, +0.544977871558927203655605329226589424), (+1.46039344988914012731600687545342481, +0.105314172216711213198653947287423911), (+1.14110413630702332344232961652706108, +0.690133247066590994344774103222789664), (+1.79810925055017587862526741175838181, +0.102572430050271668688936198332953962), (+1.76269741635232104466056362970980003, +0.762691413787270721698998765912830812), (+1.01007297300811112636589954082814358, +0.975738804412994226238404773269621474), (+1.77450896768028140045847494036002525, +0.347917069682038655437543123442117656), (+1.57905758415890745390425864480682815, +0.474283636737712572094939643716237507)
245
246atad = getFFTI(getFFTF(data))
247atad
248(+1.96060095586699722111712208880188002, +0.414791319122673479485191525686875926), (+1.77488519660314891440696816060357297, +0.407577303975207104929139792853054444E-1), (+1.88285498724277508584845533664330800, +0.148727046650551535533947470142121032), (+1.33605373149944867099973062648180976, +0.652201385722728677849516497238165607), (+1.22040989908357622828371445051824972, +0.883800611694999360991259657870964465), (+1.29847547429456842226971972272614382, +0.275513404469474607563967289507773776), (+1.36782842743783284433844911308002534, +0.691801176269002502958812329509749884), (+1.82451234188785684530081398641330223, +0.796718022349842277542140793405638025), (+1.79892318925320908147708227193748152, +0.382338930266554914921385277631847328), (+1.58414986490798852211521857920552801, +0.383765460709671509389007633517594730), (+1.67634688335125261183552129296828534, +0.175871087822986726625605090785816854), (+1.33189527940076116622652032696414841, +0.776984346310312787409723099534439361), (+1.38334920950842469088719006737852778, +0.753368182947495759524476766281465654), (+1.84527461315390691579650857620143746, +0.193074886219517994195632169848498006), (+1.16779040746660914199155157202186280, +0.422853821511692554583423458982656946), (+1.27612878464223961859863778726862718, +0.146700022622367738712365136105531291), (+1.88874396223078925383840199296552975, +0.700366441753232398283233495559269503), (+1.25071708304127403275261263756470721, +0.883739438889742316154818938686585869), (+1.49422142948620286556093448140761897, +0.268100212934289481533365593629561859), (+1.94572154575208300720505786320622962, +0.635087107938418383570403242971146628), (+1.33411395358694778689312902651102157, +0.277331838011086501799416463475168407), (+1.84371789613195203103197755484147749, +0.378883204034277440209275010472028133), (+1.03689412577966251897484801269655402, +0.887563382641034313769594395225829538), (+1.41132693409108395274955050005343154, +0.278179132116821645365761281953693807), (+1.95198533009158611625629684991932845, +0.846010657039424961418272009384775156), (+1.64204211432694973042453727562578073, +0.569496328513469173810583426606445516), (+1.95105807216635081993032804689288208, +0.211023882118547500927814652809560506), (+1.44447820020967503792324640652979275, +0.782010046452551368544273746238195055E-1), (+1.56630627344480974526112725619285606, +0.360705038989246295038827499622555759), (+1.63602054066894215377250937501129967, +0.544977871558927203655605329226589713), (+1.46039344988914012731600687545342481, +0.105314172216711213198653947287423779), (+1.14110413630702332344232961652706108, +0.690133247066590994344774103222789952), (+1.79810925055017587862526741175838181, +0.102572430050271668688936198332953770), (+1.76269741635232104466056362970980022, +0.762691413787270721698998765912830908), (+1.01007297300811112636589954082814358, +0.975738804412994226238404773269621474), (+1.77450896768028140045847494036002525, +0.347917069682038655437543123442117560), (+1.57905758415890745390425864480682815, +0.474283636737712572094939643716237796), (-0.385185988877447170611195588516985464E-33, +0.168518870133883137142398069976181140E-33), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (+0.962964972193617926527988971292463659E-34, +0.842594350669415685711990349880905702E-34), (+0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.252778305200824705713597104964271711E-33), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33), (+0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, +0.204630056591143809387197656399648528E-33), (+0.00000000000000000000000000000000000, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (+0.00000000000000000000000000000000000, +0.601853107621011204079993107057789787E-34), (+0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33)
249reltol = sqrt(epsilon(1._TKC))
250reltol
251+0.138777878078144567552953958511352539E-16
252isClose(data, atad(1:size(data)), reltol = reltol)
253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
255
256lenData = getUnifRand(5, 100)
257lenData
258+18
259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
260data
261+1.30083299, +1.60727477, +1.80740356, +1.68487144, +1.53830123, +1.21680546, +1.77309465, +1.22379684, +1.53682709, +1.57403326, +1.86693227, +1.17280746, +1.95195174, +1.32264113, +1.38120782, +1.11113906, +1.15851927, +1.64512014
262
263atad = getFFTI(getFFTF(data))
264atad
265+1.30083287, +1.60727489, +1.80740356, +1.68487167, +1.53830099, +1.21680558, +1.77309453, +1.22379684, +1.53682721, +1.57403302, +1.86693263, +1.17280746, +1.95195198, +1.32264090, +1.38120794, +1.11113882, +1.15851915, +1.64512026, +0.596046448E-7, -0.596046448E-7, +0.178813934E-6, +0.119209290E-6, +0.238418579E-6, +0.00000000, -0.119209290E-6, +0.298023224E-6, -0.596046448E-7, +0.119209290E-6, -0.238418579E-6, +0.417232513E-6, +0.178813934E-6, +0.298023224E-6
266reltol = sqrt(epsilon(1._TKC))
267reltol
268+0.345266977E-3
269isClose(data, atad(1:size(data)), reltol = reltol)
270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
272
273lenData = getUnifRand(5, 100)
274lenData
275+68
276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
277data
278+1.4135785959796574, +1.1481676229172946, +1.3449430991065203, +1.0469472301892739, +1.9040821795415097, +1.8902838107806001, +1.3550457736049117, +1.0084770265349392, +1.8393184572388432, +1.8628745925240349, +1.4991107663009879, +1.8347627024897035, +1.6553781658562490, +1.1266991853219968, +1.9328758120634526, +1.1081573720170197, +1.7312269031243537, +1.4687043219269427, +1.4670433383296362, +1.1229999537624580, +1.6751816023968087, +1.2395488009030109, +1.1744865511432252, +1.9990145290968111, +1.5687076077556461, +1.5980768183426188, +1.4288417594148597, +1.8704692468215289, +1.0123846864728883, +1.3811025809058779, +1.5957835677992256, +1.5450271517538856, +1.9525992097505753, +1.9818082472470682, +1.9821587164611039, +1.2829330707921822, +1.2025806036069402, +1.5433627298639174, +1.7162328680148633, +1.8366117373719222, +1.5378619311166339, +1.3533037020158249, +1.8207869740272395, +1.6667142017973955, +1.4015145905863915, +1.6483457524157901, +1.2190579418965601, +1.1726885718968612, +1.8373025299951751, +1.3955609885948801, +1.2569062515633420, +1.3594687972924540, +1.0416153966173605, +1.8956319545817508, +1.4298089388709543, +1.7753906998271090, +1.6315498962018871, +1.9098288657098643, +1.0390746224986063, +1.8036628964174191, +1.5062621854842719, +1.4791609614169068, +1.8499708018869927, +1.5335256614150388, +1.1211783575481453, +1.7462608432587532, +1.8897322622430259, +1.2837516741744013
279
280atad = getFFTI(getFFTF(data))
281atad
282+1.4135785959796576, +1.1481676229172944, +1.3449430991065203, +1.0469472301892744, +1.9040821795415090, +1.8902838107806001, +1.3550457736049113, +1.0084770265349396, +1.8393184572388435, +1.8628745925240351, +1.4991107663009875, +1.8347627024897037, +1.6553781658562485, +1.1266991853219965, +1.9328758120634522, +1.1081573720170201, +1.7312269031243535, +1.4687043219269431, +1.4670433383296357, +1.1229999537624580, +1.6751816023968078, +1.2395488009030111, +1.1744865511432248, +1.9990145290968109, +1.5687076077556457, +1.5980768183426197, +1.4288417594148588, +1.8704692468215287, +1.0123846864728878, +1.3811025809058777, +1.5957835677992249, +1.5450271517538856, +1.9525992097505758, +1.9818082472470682, +1.9821587164611036, +1.2829330707921818, +1.2025806036069402, +1.5433627298639170, +1.7162328680148629, +1.8366117373719217, +1.5378619311166339, +1.3533037020158249, +1.8207869740272395, +1.6667142017973946, +1.4015145905863915, +1.6483457524157894, +1.2190579418965601, +1.1726885718968605, +1.8373025299951751, +1.3955609885948796, +1.2569062515633416, +1.3594687972924533, +1.0416153966173609, +1.8956319545817504, +1.4298089388709543, +1.7753906998271085, +1.6315498962018871, +1.9098288657098641, +1.0390746224986060, +1.8036628964174182, +1.5062621854842722, +1.4791609614169059, +1.8499708018869929, +1.5335256614150374, +1.1211783575481455, +1.7462608432587532, +1.8897322622430257, +1.2837516741744011, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, +0.0000000000000000, -0.55511151231257827E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, -0.44408920985006262E-15, +0.33306690738754696E-15, -0.77715611723760958E-15, +0.11102230246251565E-15, -0.33306690738754696E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, -0.44408920985006262E-15, +0.0000000000000000, +0.0000000000000000, +0.55511151231257827E-15, +0.0000000000000000, +0.55511151231257827E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, +0.11102230246251565E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.0000000000000000, -0.22204460492503131E-15, +0.33306690738754696E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, -0.55511151231257827E-15, +0.44408920985006262E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, -0.66613381477509392E-15, +0.99920072216264089E-15, -0.22204460492503131E-15, +0.13322676295501878E-14
283reltol = sqrt(epsilon(1._TKC))
284reltol
285+0.14901161193847656E-7
286isClose(data, atad(1:size(data)), reltol = reltol)
287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
289
290lenData = getUnifRand(5, 100)
291lenData
292+6
293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
294data
295+1.76461445456681984071080549814498593, +1.77636939678130020361695878685188052, +1.01089016665463494043509387353262661, +1.49360981803492951162320184798928438, +1.44215083980307052724518949463977630, +1.92420928544687141698974285157117951
296
297atad = getFFTI(getFFTF(data))
298atad
299+1.76461445456681984071080549814498593, +1.77636939678130020361695878685188033, +1.01089016665463494043509387353262661, +1.49360981803492951162320184798928438, +1.44215083980307052724518949463977610, +1.92420928544687141698974285157117932, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33
300reltol = sqrt(epsilon(1._TKC))
301reltol
302+0.138777878078144567552953958511352539E-16
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+49
310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
311data
312(+1.91148090, +0.153611302), (+1.00981128, +0.466174304), (+1.89489222, +0.415866613), (+1.34522843, +0.867508471), (+1.19619608, +0.259085894E-1), (+1.70415545, +0.491223156), (+1.92586422, +0.256133080), (+1.11268067, +0.375489771), (+1.23032451, +0.698856950), (+1.66330743, +0.211080194), (+1.67344785, +0.559856474), (+1.33656836, +0.896725714), (+1.38826430, +0.135461926), (+1.37953568, +0.752839267), (+1.98805285, +0.396716118), (+1.85770416, +0.334467411), (+1.27604103, +0.879695594), (+1.36342835, +0.442130148), (+1.90777302, +0.618433058), (+1.41160703, +0.923765242), (+1.53045511, +0.124014914), (+1.85421145, +0.358301282), (+1.43147433, +0.489745677), (+1.76864338, +0.793495774E-1), (+1.97162712, +0.778444350), (+1.89051962, +0.513974965), (+1.13758898, +0.293541193), (+1.76999927, +0.439483047), (+1.54709268, +0.710417747), (+1.40005612, +0.144491553), (+1.54042888, +0.301573277), (+1.99673605, +0.281676471), (+1.86931813, +0.666499257), (+1.94164932, +0.642723918), (+1.41102242, +0.243523836), (+1.01296496, +0.480387509), (+1.57451463, +0.740439296), (+1.87086248, +0.458268285), (+1.24488473, +0.959941983), (+1.34265995, +0.782945514), (+1.27489400, +0.963727415), (+1.24832940, +0.429510832), (+1.57388008, +0.998508394), (+1.65563631, +0.186340868), (+1.96248722, +0.886411607), (+1.12253070, +0.358892143), (+1.99807990, +0.593628049), (+1.81443143, +0.306123435), (+1.32986128, +0.265820026E-1)
313
314atad = getFFTI(getFFTF(data))
315atad
316(+1.91148078, +0.153611183), (+1.00981140, +0.466174334), (+1.89489198, +0.415866673), (+1.34522831, +0.867508471), (+1.19619608, +0.259085298E-1), (+1.70415533, +0.491223186), (+1.92586410, +0.256132990), (+1.11268055, +0.375489771), (+1.23032463, +0.698856890), (+1.66330755, +0.211080402), (+1.67344785, +0.559856355), (+1.33656812, +0.896725655), (+1.38826466, +0.135461986), (+1.37953568, +0.752839327), (+1.98805285, +0.396716058), (+1.85770404, +0.334467411), (+1.27604091, +0.879695535), (+1.36342847, +0.442130029), (+1.90777314, +0.618432760), (+1.41160691, +0.923765123), (+1.53045523, +0.124014854), (+1.85421133, +0.358301163), (+1.43147445, +0.489745677), (+1.76864314, +0.793496370E-1), (+1.97162700, +0.778444290), (+1.89051962, +0.513974965), (+1.13758910, +0.293541312), (+1.76999903, +0.439482987), (+1.54709280, +0.710417807), (+1.40005624, +0.144491538), (+1.54042888, +0.301573396), (+1.99673605, +0.281676412), (+1.86931789, +0.666499257), (+1.94164944, +0.642723799), (+1.41102242, +0.243523821), (+1.01296508, +0.480387509), (+1.57451463, +0.740439355), (+1.87086260, +0.458268315), (+1.24488461, +0.959942102), (+1.34265983, +0.782945573), (+1.27489388, +0.963727415), (+1.24832976, +0.429510742), (+1.57387996, +0.998508275), (+1.65563607, +0.186340839), (+1.96248698, +0.886411607), (+1.12253094, +0.358892113), (+1.99807978, +0.593628049), (+1.81443155, +0.306123435), (+1.32986104, +0.265820026E-1), (+0.476837158E-6, +0.149011612E-7), (+0.238418579E-6, +0.149011612E-6), (+0.357627869E-6, +0.178813934E-6), (+0.119209290E-6, -0.119209290E-6), (+0.298023224E-6, +0.00000000), (+0.596046448E-7, +0.596046448E-7), (+0.178813934E-6, +0.119209290E-6), (+0.417232513E-6, -0.298023224E-7), (+0.655651093E-6, +0.596046448E-7), (+0.238418579E-6, +0.745058060E-7), (+0.298023224E-6, +0.149011612E-6), (+0.357627869E-6, -0.298023224E-6), (+0.357627869E-6, +0.447034836E-7), (+0.596046448E-7, -0.163912773E-6), (+0.298023224E-6, -0.745058060E-7)
317reltol = sqrt(epsilon(1._TKC))
318reltol
319+0.345266977E-3
320isClose(data, atad(1:size(data)), reltol = reltol)
321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
323
324lenData = getUnifRand(5, 100)
325lenData
326+33
327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
328data
329(+1.4134497070572758, +0.13857336502502393), (+1.0712079905974710, +0.57702857214882441), (+1.7788088624275011, +0.68064115759296273), (+1.6845523146099926, +0.15067722926689708), (+1.7582367550361648, +0.95492226563234273), (+1.8750560872384379, +0.46540024727042828), (+1.8042893635049349, +0.27936162407288245), (+1.2257613186760306, +0.88802020219673661), (+1.7653064710560926, +0.80421045478633058), (+1.4942147754073454, +0.70520580148510026), (+1.4221969513235406, +0.93968917508755812), (+1.8602799393747156, +0.13019076671295515), (+1.6557147222276951, +0.61246998534370622), (+1.2676868060354520, +0.75374134357142797), (+1.6099670695502954, +0.97373834992504549), (+1.1713317645456889, +0.12566530993645042), (+1.4882802217687408, +0.66221330822658120), (+1.6080473125856307, +0.45594377348969528), (+1.0368597551679872, +0.31333330329639353), (+1.9772510950255668, +0.61077641185170306), (+1.7902093606909493, +0.39569076573490169), (+1.8308346247636829, +0.69467096815156804), (+1.4387439010068919, +0.62080630178075802), (+1.4647821232457137, +0.57168959877193837), (+1.8132230435016092, +0.65346121488717424), (+1.6620502494610407, +0.61088775820194496), (+1.1750278419430114, +0.94929236862926769), (+1.8998421306996764, +0.84176611862600037), (+1.2536257389955243, +0.41348665924713057), (+1.5689663031691050, +0.63028004872396870), (+1.9487105075917011, +0.43402642548190662), (+1.3760644040354064, +0.92851630820288633), (+1.2699288273240439, +0.62629904542150472)
330
331atad = getFFTI(getFFTF(data))
332atad
333(+1.4134497070572758, +0.13857336502502376), (+1.0712079905974710, +0.57702857214882464), (+1.7788088624275007, +0.68064115759296273), (+1.6845523146099923, +0.15067722926689739), (+1.7582367550361648, +0.95492226563234284), (+1.8750560872384381, +0.46540024727042839), (+1.8042893635049346, +0.27936162407288212), (+1.2257613186760306, +0.88802020219673661), (+1.7653064710560926, +0.80421045478633058), (+1.4942147754073454, +0.70520580148510059), (+1.4221969513235404, +0.93968917508755778), (+1.8602799393747151, +0.13019076671295560), (+1.6557147222276949, +0.61246998534370656), (+1.2676868060354518, +0.75374134357142819), (+1.6099670695502954, +0.97373834992504538), (+1.1713317645456884, +0.12566530993645086), (+1.4882802217687408, +0.66221330822658109), (+1.6080473125856307, +0.45594377348969517), (+1.0368597551679875, +0.31333330329639336), (+1.9772510950255666, +0.61077641185170284), (+1.7902093606909495, +0.39569076573490142), (+1.8308346247636829, +0.69467096815156792), (+1.4387439010068919, +0.62080630178075746), (+1.4647821232457134, +0.57168959877193803), (+1.8132230435016092, +0.65346121488717412), (+1.6620502494610405, +0.61088775820194452), (+1.1750278419430116, +0.94929236862926714), (+1.8998421306996760, +0.84176611862599948), (+1.2536257389955241, +0.41348665924713052), (+1.5689663031691046, +0.63028004872396837), (+1.9487105075917013, +0.43402642548190584), (+1.3760644040354060, +0.92851630820288533), (+1.2699288273240441, +0.62629904542150494), (-0.22204460492503131E-15, -0.38857805861880479E-15), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, -0.36082248300317588E-15), (+0.0000000000000000, -0.16653345369377348E-15), (-0.22204460492503131E-15, -0.33306690738754696E-15), (+0.44408920985006262E-15, +0.24980018054066022E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (-0.33306690738754696E-15, -0.49960036108132044E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (-0.22204460492503131E-15, -0.16653345369377348E-15), (+0.0000000000000000, -0.49960036108132044E-15), (+0.77715611723760958E-15, -0.16653345369377348E-15), (+0.88817841970012523E-15, -0.31918911957973251E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.22204460492503131E-15, +0.83266726846886741E-16), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.27755575615628914E-15), (-0.22204460492503131E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (-0.33306690738754696E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.49960036108132044E-15), (+0.55511151231257827E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.91593399531575415E-15), (+0.33306690738754696E-15, +0.83266726846886741E-15)
334reltol = sqrt(epsilon(1._TKC))
335reltol
336+0.14901161193847656E-7
337isClose(data, atad(1:size(data)), reltol = reltol)
338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
340
341lenData = getUnifRand(5, 100)
342lenData
343+94
344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
345data
346(+1.94221815241231048365259782605823896, +0.779703415861115965255578422400366844), (+1.92274771800024178777807042473537819, +0.996618002099140343198676720550686186), (+1.58941838749831324643515123230239378, +0.869311996782897145050526463648851749), (+1.25522925505330847248916099108254280, +0.466291191062480439050128796687759360), (+1.37077010112344242333888641541276944, +0.105063339016973507547666582835623754), (+1.19389962727141583984209950670679047, +0.167460200767052746240797427898704152), (+1.66310663460024853435886251389026219, +0.504771263554308655594563967592582426), (+1.92711639542589744753435915051918795, +0.611278106545156155973686726100985484), (+1.72535816364795511087730043943722421, +0.544061504829045961669887469214669226), (+1.70852694477807143022228683744214924, +0.650060360406668547239459610319327214), (+1.82491793515402081712777712398989456, +0.905135968028110399472028451353430653), (+1.50013975126489981471478038555334490, +0.342051807004625054111963425337475118), (+1.46347617191781152170009174897873188, +0.807261974147070933151282537889728709), (+1.99939365961835807619741722144828185, +0.880658585603503180609818536304230227), (+1.81899804228513957254270678546420596, +0.575729082198000703959417871660390924), (+1.85117211137950813925752082425167893, +0.453591040396027116305660574622240477), (+1.54569092808191304232480253319481064, +0.387958654792055561297380587948488876), (+1.14332857429484830968834722345239356, +0.942369382700045521394140196750640554), (+1.66230438025616812028540106324419913, +0.266499387900874505431185681081936505), (+1.26472216684300167420811384446593568, +0.796045868034024122020475706672941668), (+1.34433493284218574795440876201039349, +0.373426194535148908565390188512789288), (+1.74341507016512006587654238026389839, +0.730532688472568812793292074689317937), (+1.61257783927764813035903050620919499, +0.605419465891785948150103248738140086), (+1.83225213367689580419909439876613485, +0.200248080785142245461333215052857960), (+1.45597286289494582933241841557687474, +0.103530938071472035701101253016941563), (+1.09306955350465519073257477818436235, +0.447104562883639028802980992776741852), (+1.91718089261736909213278369487518417, +0.207916934804855176852796064736992237), (+1.85835401894369169131473046690911375, +0.749272076223467062480759096086791494), (+1.14546112364486135040461439690060413, +0.967168820066473880053965432114729974), (+1.26585010925789658767137247410197828, +0.639147347754434722536845122673125230), (+1.99162084236973783264171336566406757, +0.861713265188577170788611407884572987), (+1.01843896432685549055829770598931385, +0.397844753608575212295716163524727152), (+1.16298408270753591058122725046706214, +0.822898082599669014101353187394312107), (+1.58264142119568066150830906854927953, +0.140811816368050173841470986552110495E-1), (+1.25343140735688590092205397823504645, +0.828988195646830540994930876652290590), (+1.13621378489679997016938579092139776, +0.238624131402408148951004916914937395), (+1.81907267283380507483438000768509061, +0.287812188054291158939428243732469904), (+1.33332971789144883309430917721072930, +0.941637775315612864049056018083558647), (+1.55220469907878652938045993801988706, +0.402439665856564537448726546191892621E-1), (+1.65018955671568786610913502643750900, +0.131805587486185297057386935179879279), (+1.30712734477952316487220388139182092, +0.665647217516129349793185229697806127), (+1.84240472330753819288482670377333845, +0.128331062592267836235252567506120902), (+1.80479516543686685149391129853883740, +0.411487966301397186606914601142829481), (+1.22496886472443117726263159959673864, +0.497658078421618453832235880345672161E-1), (+1.85574823279166825605814336601814502, +0.497634115185343850308572355444459226), (+1.88256111918201041125851223109497204, +0.165358111362575755936415022953658604), (+1.35911591024120881829276186312506873, +0.688955140495820257105325127652102390), (+1.88366443960583324278652762884201980, +0.680609562529239489851262454921920661), (+1.41028906558761699501316418317953703, +0.993120770130523694369202519770402904), (+1.73039077014469637741066811167932288, +0.246424363712385301327103672214712509), (+1.48217927317152485072242991335382425, +0.540137396327101818361819473548245374E-1), (+1.07440947966770228686529762822677364, +0.284120845446618307705381592837727904), (+1.45540499715153311818593147318876332, +0.812131500467107920895402313656125208), (+1.84202192569143162015539461750793764, +0.820640863788689051876452728270911296), (+1.06305505454294331435994339608952878, +0.169640511584021156467646349064108046), (+1.58650415242610200799819237699379918, +0.107600708696781158790355018245679687), (+1.97896991593955477622831256292176526, +0.433501418965585966383681211142288232), (+1.47286806219750793462229877580537863, +0.285117354085857706199130339252723803), (+1.38165271075373693793519685984725586, +0.325747118504598608173471769389389371), (+1.29315516646875803237956041610044077, +0.530050090090500170645918524182750829), (+1.84944663300094927136349394760594109, +0.750955375392975921681665238140035439), (+1.02518142664558501691501026631191071, +0.536857654678607068495818036773791712E-2), (+1.19000853174028533716811995843451131, +0.378085569983339582442289319187284341E-1), (+1.70700053176623240867533953109259000, +0.846603118243554859179803356121554405), (+1.73621126014997469266731254507760417, +0.284054371643623230938783459193067612), (+1.63258605551455388059752598606941827, +0.498244564966939901689911879963763135), (+1.14751269886419228188194620286274451, +0.156854167011147991605815666395684981), (+1.98480876068413044426770999765732101, +0.298952864942068982792137701924191957), (+1.26277499762718447459674850774558236, +0.219244076148379477891563759709735956), (+1.93724319518493785343719489557321029, +0.886189504351490930114769489597563922), (+1.65463420124544293271118718458451689, +0.631723159704943156663529914708043084), (+1.03893422569556274525581341473095148, +0.618355724410500696672165523272854402), (+1.46319075046415746879341786476587974, +0.367988121071154802207949144848010828), (+1.39514220539078782019799058843706313, +0.412599463359844436476160105766828084), (+1.09865340336622051723479207847817945, +0.393627132262041968736625394936773759), (+1.73740240037977685385501060398376453, +0.386774467905211112736623325101571519), (+1.39541153483571951646379143236826390, +0.962190757514241374845000783807485418), (+1.05869520948402229915392011796294007, +0.623954723727349203096169334709700185), (+1.64230426195191524673479592027641351, +0.298120920912958169440229327090789230), (+1.39043305417356997820749718845379715, +0.900998181215218021131357442675162855), (+1.79222233407785469266405049559748350, +0.862119571173154741897222794645661076), (+1.36916568093588036542127642170851122, +0.886043742123893806689790900164067543), (+1.06245282211929333268224862486331812, +0.822824280598031909016573705388272195), (+1.32585267251831302053291119247357153, +0.576119362723329981566938318260750355E-1), (+1.85783012190137418135496778614145241, +0.271363768683930864757407131699501836), (+1.14827885632070793700659943724980033, +0.323801215350551479769599958678884343), (+1.81771964551417314329202256902197934, +0.529534590925872136865836913076667306), (+1.20877593823421024212082306830481465, +0.555383972976686484729510402867658430), (+1.20678599359467850444663321556478859, +0.648664147162092489423015465211554904), (+1.18990099566643673735495518212561957, +0.604616462348119010365322616923584336), (+1.16606939052979613355477260918670655, +0.884627710243849741851118347037590073), (+1.30385035006839745246102653380290693, +0.180504343811760728695025378690152951), (+1.69676188328238325311663400350133443, +0.120981289867345507443151484688627131), (+1.38782283637820501924561371304720698, +0.779925806316553601697003978201535514)
347
348atad = getFFTI(getFFTF(data))
349atad
350(+1.94221815241231048365259782605823915, +0.779703415861115965255578422400366844), (+1.92274771800024178777807042473537838, +0.996618002099140343198676720550685994), (+1.58941838749831324643515123230239378, +0.869311996782897145050526463648851749), (+1.25522925505330847248916099108254299, +0.466291191062480439050128796687759023), (+1.37077010112344242333888641541276925, +0.105063339016973507547666582835623682), (+1.19389962727141583984209950670679047, +0.167460200767052746240797427898703622), (+1.66310663460024853435886251389026257, +0.504771263554308655594563967592582137), (+1.92711639542589744753435915051918814, +0.611278106545156155973686726100985099), (+1.72535816364795511087730043943722459, +0.544061504829045961669887469214669226), (+1.70852694477807143022228683744214943, +0.650060360406668547239459610319327118), (+1.82491793515402081712777712398989495, +0.905135968028110399472028451353430846), (+1.50013975126489981471478038555334490, +0.342051807004625054111963425337474973), (+1.46347617191781152170009174897873246, +0.807261974147070933151282537889728902), (+1.99939365961835807619741722144828242, +0.880658585603503180609818536304230131), (+1.81899804228513957254270678546420673, +0.575729082198000703959417871660390924), (+1.85117211137950813925752082425167950, +0.453591040396027116305660574622240574), (+1.54569092808191304232480253319481083, +0.387958654792055561297380587948488780), (+1.14332857429484830968834722345239395, +0.942369382700045521394140196750640554), (+1.66230438025616812028540106324419952, +0.266499387900874505431185681081936697), (+1.26472216684300167420811384446593548, +0.796045868034024122020475706672941764), (+1.34433493284218574795440876201039368, +0.373426194535148908565390188512789192), (+1.74341507016512006587654238026389839, +0.730532688472568812793292074689317744), (+1.61257783927764813035903050620919518, +0.605419465891785948150103248738139797), (+1.83225213367689580419909439876613504, +0.200248080785142245461333215052857816), (+1.45597286289494582933241841557687512, +0.103530938071472035701101253016941515), (+1.09306955350465519073257477818436254, +0.447104562883639028802980992776741707), (+1.91718089261736909213278369487518417, +0.207916934804855176852796064736992670), (+1.85835401894369169131473046690911375, +0.749272076223467062480759096086791494), (+1.14546112364486135040461439690060433, +0.967168820066473880053965432114730070), (+1.26585010925789658767137247410197828, +0.639147347754434722536845122673125326), (+1.99162084236973783264171336566406795, +0.861713265188577170788611407884573468), (+1.01843896432685549055829770598931424, +0.397844753608575212295716163524727345), (+1.16298408270753591058122725046706253, +0.822898082599669014101353187394312107), (+1.58264142119568066150830906854927972, +0.140811816368050173841470986552107546E-1), (+1.25343140735688590092205397823504664, +0.828988195646830540994930876652290783), (+1.13621378489679997016938579092139814, +0.238624131402408148951004916914937540), (+1.81907267283380507483438000768509099, +0.287812188054291158939428243732469904), (+1.33332971789144883309430917721072949, +0.941637775315612864049056018083558840), (+1.55220469907878652938045993801988764, +0.402439665856564537448726546191892380E-1), (+1.65018955671568786610913502643750938, +0.131805587486185297057386935179879134), (+1.30712734477952316487220388139182130, +0.665647217516129349793185229697806416), (+1.84240472330753819288482670377333922, +0.128331062592267836235252567506120902), (+1.80479516543686685149391129853883778, +0.411487966301397186606914601142829915), (+1.22496886472443117726263159959673903, +0.497658078421618453832235880345670717E-1), (+1.85574823279166825605814336601814560, +0.497634115185343850308572355444459130), (+1.88256111918201041125851223109497281, +0.165358111362575755936415022953658460), (+1.35911591024120881829276186312506911, +0.688955140495820257105325127652102679), (+1.88366443960583324278652762884202057, +0.680609562529239489851262454921921046), (+1.41028906558761699501316418317953722, +0.993120770130523694369202519770403289), (+1.73039077014469637741066811167932365, +0.246424363712385301327103672214712509), (+1.48217927317152485072242991335382463, +0.540137396327101818361819473548244411E-1), (+1.07440947966770228686529762822677383, +0.284120845446618307705381592837727856), (+1.45540499715153311818593147318876370, +0.812131500467107920895402313656125497), (+1.84202192569143162015539461750793841, +0.820640863788689051876452728270911488), (+1.06305505454294331435994339608952936, +0.169640511584021156467646349064108142), (+1.58650415242610200799819237699379956, +0.107600708696781158790355018245679543), (+1.97896991593955477622831256292176603, +0.433501418965585966383681211142288521), (+1.47286806219750793462229877580537940, +0.285117354085857706199130339252724044), (+1.38165271075373693793519685984725605, +0.325747118504598608173471769389389468), (+1.29315516646875803237956041610044096, +0.530050090090500170645918524182751117), (+1.84944663300094927136349394760594109, +0.750955375392975921681665238140035632), (+1.02518142664558501691501026631191071, +0.536857654678607068495818036773760416E-2), (+1.19000853174028533716811995843451189, +0.378085569983339582442289319187279827E-1), (+1.70700053176623240867533953109259096, +0.846603118243554859179803356121554694), (+1.73621126014997469266731254507760437, +0.284054371643623230938783459193067660), (+1.63258605551455388059752598606941846, +0.498244564966939901689911879963763231), (+1.14751269886419228188194620286274470, +0.156854167011147991605815666395684932), (+1.98480876068413044426770999765732159, +0.298952864942068982792137701924191813), (+1.26277499762718447459674850774558255, +0.219244076148379477891563759709735980), (+1.93724319518493785343719489557321087, +0.886189504351490930114769489597563729), (+1.65463420124544293271118718458451727, +0.631723159704943156663529914708042892), (+1.03893422569556274525581341473095167, +0.618355724410500696672165523272854402), (+1.46319075046415746879341786476587955, +0.367988121071154802207949144848011021), (+1.39514220539078782019799058843706294, +0.412599463359844436476160105766828132), (+1.09865340336622051723479207847817964, +0.393627132262041968736625394936773855), (+1.73740240037977685385501060398376453, +0.386774467905211112736623325101571664), (+1.39541153483571951646379143236826371, +0.962190757514241374845000783807485514), (+1.05869520948402229915392011796294027, +0.623954723727349203096169334709700377), (+1.64230426195191524673479592027641389, +0.298120920912958169440229327090789086), (+1.39043305417356997820749718845379734, +0.900998181215218021131357442675163144), (+1.79222233407785469266405049559748369, +0.862119571173154741897222794645660980), (+1.36916568093588036542127642170851122, +0.886043742123893806689790900164067543), (+1.06245282211929333268224862486331812, +0.822824280598031909016573705388272002), (+1.32585267251831302053291119247357153, +0.576119362723329981566938318260750355E-1), (+1.85783012190137418135496778614145241, +0.271363768683930864757407131699501932), (+1.14827885632070793700659943724980052, +0.323801215350551479769599958678884006), (+1.81771964551417314329202256902197973, +0.529534590925872136865836913076667306), (+1.20877593823421024212082306830481503, +0.555383972976686484729510402867658526), (+1.20678599359467850444663321556478859, +0.648664147162092489423015465211555000), (+1.18990099566643673735495518212561957, +0.604616462348119010365322616923584336), (+1.16606939052979613355477260918670635, +0.884627710243849741851118347037589976), (+1.30385035006839745246102653380290673, +0.180504343811760728695025378690152999), (+1.69676188328238325311663400350133462, +0.120981289867345507443151484688627372), (+1.38782283637820501924561371304720736, +0.779925806316553601697003978201536092), (+0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.168518870133883137142398069976181140E-33), (+0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.102315028295571904693598828199824264E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.228704180895984257550397380681960119E-33), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, +0.120370621524202240815998621411557957E-33), (-0.385185988877447170611195588516985464E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33), (-0.770371977754894341222391177033970927E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.433334237487128066937595037081608647E-33), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.770371977754894341222391177033970927E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.505556610401649411427194209928543421E-33), (-0.385185988877447170611195588516985464E-33, -0.433334237487128066937595037081608647E-33), (+0.192592994438723585305597794258492732E-33, -0.216667118743564033468797518540804323E-33), (-0.674075480535532548569592279904724561E-33, -0.529630734706489859590393934210855013E-33), (+0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.553704859011330307753593658493166604E-33), (-0.962964972193617926527988971292463659E-34, -0.782409039907314565303991039175126723E-34), (-0.481482486096808963263994485646231830E-33, -0.674075480535532548569592279904724561E-33)
351reltol = sqrt(epsilon(1._TKC))
352reltol
353+0.138777878078144567552953958511352539E-16
354isClose(data, atad(1:size(data)), reltol = reltol)
355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
357
358lenData = getUnifRand(5, 100)
359lenData
360+73
361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
362data
363+1.50303161, +1.89460146, +1.80085897, +1.06443214, +1.43326783, +1.27830553, +1.14391446, +1.64036345, +1.07252455, +1.80351102, +1.36119866, +1.66436815, +1.35769153, +1.77089655, +1.36029875, +1.96879911, +1.68494201, +1.59104455, +1.81116378, +1.81562877, +1.37840044, +1.93710148, +1.55941916, +1.43080688, +1.61137104, +1.97445321, +1.56435251, +1.73609638, +1.18246865, +1.97325110, +1.20018816, +1.92280698, +1.05109143, +1.44954038, +1.57071590, +1.02844691, +1.48947251, +1.02197111, +1.86354899, +1.73046350, +1.69303942, +1.36347294, +1.43510461, +1.79822969, +1.43831325, +1.08636856, +1.53288472, +1.80436003, +1.39279723, +1.94822121, +1.51455283, +1.43620348, +1.30059147, +1.23505759, +1.01312160, +1.72575212, +1.17423344, +1.47395992, +1.30627131, +1.33446622, +1.78564060, +1.21470666, +1.62976575, +1.02189207, +1.34400034, +1.05720544, +1.55836999, +1.98009300, +1.27783096, +1.55858278, +1.35362983, +1.85328138, +1.71732807
364
365atad = getFFTI(getFFTF(data))
366atad
367+1.50303161, +1.89460158, +1.80085850, +1.06443238, +1.43326771, +1.27830553, +1.14391422, +1.64036310, +1.07252443, +1.80351114, +1.36119854, +1.66436815, +1.35769153, +1.77089643, +1.36029887, +1.96879888, +1.68494177, +1.59104466, +1.81116343, +1.81562877, +1.37840033, +1.93710124, +1.55941904, +1.43080664, +1.61137080, +1.97445345, +1.56435227, +1.73609650, +1.18246877, +1.97325087, +1.20018828, +1.92280686, +1.05109143, +1.44954014, +1.57071590, +1.02844703, +1.48947263, +1.02197099, +1.86354923, +1.73046303, +1.69303930, +1.36347294, +1.43510461, +1.79822958, +1.43831325, +1.08636832, +1.53288496, +1.80435967, +1.39279687, +1.94822097, +1.51455259, +1.43620300, +1.30059147, +1.23505735, +1.01312184, +1.72575176, +1.17423320, +1.47395992, +1.30627108, +1.33446598, +1.78564024, +1.21470666, +1.62976551, +1.02189219, +1.34400022, +1.05720544, +1.55837011, +1.98009276, +1.27783096, +1.55858278, +1.35363030, +1.85328114, +1.71732795, +0.596046448E-7, +0.357627869E-6, -0.596046448E-7, +0.119209290E-6, +0.178813934E-6, +0.298023224E-6, +0.298023224E-6, +0.596046448E-7, +0.00000000, +0.238418579E-6, +0.00000000, +0.178813934E-6, +0.357627869E-6, +0.357627869E-6, +0.238418579E-6, +0.00000000, -0.178813934E-6, +0.238418579E-6, -0.119209290E-6, -0.119209290E-6, +0.596046448E-7, -0.119209290E-6, +0.238418579E-6, -0.238418579E-6, +0.00000000, -0.596046448E-7, +0.238418579E-6, -0.178813934E-6, +0.298023224E-6, -0.238418579E-6, +0.476837158E-6, -0.119209290E-6, +0.00000000, +0.00000000, +0.00000000, -0.596046448E-7, +0.178813934E-6, +0.00000000, +0.357627869E-6, +0.238418579E-6, +0.00000000, +0.238418579E-6, +0.178813934E-6, -0.596046448E-7, +0.238418579E-6, +0.00000000, +0.357627869E-6, +0.178813934E-6, +0.119209290E-6, +0.178813934E-6, +0.298023224E-6, +0.178813934E-6, +0.596046448E-7, -0.596046448E-7, +0.238418579E-6
368reltol = sqrt(epsilon(1._TKC))
369reltol
370+0.345266977E-3
371isClose(data, atad(1:size(data)), reltol = reltol)
372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
374
375lenData = getUnifRand(5, 100)
376lenData
377+85
378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
379data
380+1.1745308051329959, +1.0233485561869085, +1.1971134901682463, +1.7554079494267723, +1.0865409465981304, +1.4461640936138678, +1.9284867842383293, +1.3874614276157975, +1.1717998935945371, +1.0300261640498454, +1.6217424900526933, +1.7203416415873738, +1.9459857228885573, +1.2494565089222922, +1.1815882501363437, +1.9201156269250199, +1.0580841105203267, +1.4483909769902157, +1.6936892806796280, +1.6743053290535639, +1.9543901312401444, +1.3638725416329338, +1.0133092412374873, +1.0866783204160528, +1.7018923205047434, +1.8050599400035734, +1.1682041090385213, +1.2796614947304303, +1.2127887727067004, +1.8896338589766541, +1.0127515967548997, +1.9126865372158863, +1.7130183392864105, +1.1123329901651071, +1.1719197388654423, +1.1919961659837399, +1.9694366101534735, +1.1471182704133975, +1.8448399687579264, +1.5761355532985228, +1.5378924525273421, +1.9150324282783866, +1.0431956719986537, +1.9346378011938143, +1.4049379093665446, +1.0920145750488375, +1.6311645856868784, +1.9158039889480141, +1.9156980526060798, +1.2382246587760437, +1.4501399451129677, +1.2759436065145935, +1.7254967036437017, +1.8104193783661757, +1.2323471537381505, +1.5094930951310614, +1.0818371317180495, +1.5730111195542262, +1.6672350570345491, +1.0832559976010594, +1.2956577901298894, +1.2491676558967622, +1.7104678530688515, +1.9004121566045196, +1.1286313748155705, +1.2141089113137253, +1.0491272711341324, +1.5421136414363046, +1.1003968856624784, +1.4216117025701220, +1.2798562628917818, +1.9469829986358254, +1.6829689314564065, +1.1056108786585992, +1.6147743973656850, +1.3867330172392345, +1.1809923376142653, +1.8833879471251329, +1.4110806372891034, +1.7783012657364605, +1.6027462579415890, +1.8640686215916016, +1.0557240658314664, +1.8699068012979625, +1.5672662600865515
381
382atad = getFFTI(getFFTF(data))
383atad
384+1.1745308051329959, +1.0233485561869080, +1.1971134901682468, +1.7554079494267723, +1.0865409465981299, +1.4461640936138678, +1.9284867842383289, +1.3874614276157979, +1.1717998935945373, +1.0300261640498451, +1.6217424900526931, +1.7203416415873740, +1.9459857228885571, +1.2494565089222922, +1.1815882501363433, +1.9201156269250201, +1.0580841105203269, +1.4483909769902157, +1.6936892806796273, +1.6743053290535643, +1.9543901312401437, +1.3638725416329338, +1.0133092412374867, +1.0866783204160528, +1.7018923205047427, +1.8050599400035734, +1.1682041090385211, +1.2796614947304303, +1.2127887727067006, +1.8896338589766541, +1.0127515967548990, +1.9126865372158861, +1.7130183392864105, +1.1123329901651067, +1.1719197388654425, +1.1919961659837395, +1.9694366101534735, +1.1471182704133971, +1.8448399687579262, +1.5761355532985228, +1.5378924525273425, +1.9150324282783862, +1.0431956719986537, +1.9346378011938143, +1.4049379093665446, +1.0920145750488379, +1.6311645856868788, +1.9158039889480138, +1.9156980526060801, +1.2382246587760437, +1.4501399451129680, +1.2759436065145933, +1.7254967036437021, +1.8104193783661753, +1.2323471537381503, +1.5094930951310606, +1.0818371317180495, +1.5730111195542258, +1.6672350570345489, +1.0832559976010590, +1.2956577901298900, +1.2491676558967617, +1.7104678530688515, +1.9004121566045185, +1.1286313748155707, +1.2141089113137253, +1.0491272711341324, +1.5421136414363041, +1.1003968856624784, +1.4216117025701220, +1.2798562628917818, +1.9469829986358249, +1.6829689314564067, +1.1056108786585992, +1.6147743973656847, +1.3867330172392343, +1.1809923376142655, +1.8833879471251329, +1.4110806372891038, +1.7783012657364601, +1.6027462579415890, +1.8640686215916009, +1.0557240658314659, +1.8699068012979621, +1.5672662600865515, -0.22204460492503131E-15, +0.66613381477509392E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, -0.66613381477509392E-15, +0.33306690738754696E-15, -0.55511151231257827E-15, +0.11102230246251565E-14, -0.22204460492503131E-15, -0.11102230246251565E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, -0.44408920985006262E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, -0.22204460492503131E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, -0.33306690738754696E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, -0.33306690738754696E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.55511151231257827E-15, -0.55511151231257827E-15, +0.13322676295501878E-14
385reltol = sqrt(epsilon(1._TKC))
386reltol
387+0.14901161193847656E-7
388isClose(data, atad(1:size(data)), reltol = reltol)
389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
391
392lenData = getUnifRand(5, 100)
393lenData
394+36
395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
396data
397+1.97098881425955891551744967585490475, +1.26487104236768780656254234973088546, +1.28516571428832914485144397410688927, +1.92212093344435655560670781425626122, +1.76097042708909520817959499732487759, +1.16663199331731119683981510853618367, +1.42755697240771129165586907726081224, +1.71417494662539788899614769914751424, +1.77963910079975986872026276163575073, +1.23244576855662947192282878741414113, +1.09340763375586588192421473906305458, +1.82013694302255383169045076265154621, +1.94901609937773185087742974229758725, +1.00330176445425064191908974713567090, +1.63075532173048499364174982603108301, +1.59135739872478931627796402468687015, +1.47831728712028178312989359596856575, +1.81062718217860860985236598496797961, +1.11386084880230154898849388037009626, +1.22466923684813204074439972626459967, +1.75590136409611756097437308393325246, +1.74394819494718241894496066484468458, +1.46124322013663691187407473444943699, +1.33346229177440635081671443552035937, +1.74341047021649487658514025421746652, +1.77023434282405892298676307824228731, +1.34663802342356693594585160624406701, +1.69735901673967824715651450554816502, +1.80086666263046497551214103211703903, +1.94670544764969113476985603978835577, +1.20062877698429316221525879056569672, +1.87735592192927849183231654748073177, +1.79774742845928682508176690714683554, +1.88611666483079733914800042194813782, +1.77257059583685845069671094589992592, +1.82378880484059668904327445220925489
398
399atad = getFFTI(getFFTF(data))
400atad
401+1.97098881425955891551744967585490494, +1.26487104236768780656254234973088546, +1.28516571428832914485144397410688927, +1.92212093344435655560670781425626122, +1.76097042708909520817959499732487797, +1.16663199331731119683981510853618367, +1.42755697240771129165586907726081262, +1.71417494662539788899614769914751424, +1.77963910079975986872026276163575111, +1.23244576855662947192282878741414113, +1.09340763375586588192421473906305478, +1.82013694302255383169045076265154602, +1.94901609937773185087742974229758782, +1.00330176445425064191908974713567051, +1.63075532173048499364174982603108378, +1.59135739872478931627796402468686995, +1.47831728712028178312989359596856556, +1.81062718217860860985236598496797942, +1.11386084880230154898849388037009626, +1.22466923684813204074439972626459948, +1.75590136409611756097437308393325246, +1.74394819494718241894496066484468477, +1.46124322013663691187407473444943699, +1.33346229177440635081671443552035937, +1.74341047021649487658514025421746652, +1.77023434282405892298676307824228731, +1.34663802342356693594585160624406701, +1.69735901673967824715651450554816464, +1.80086666263046497551214103211703883, +1.94670544764969113476985603978835654, +1.20062877698429316221525879056569672, +1.87735592192927849183231654748073177, +1.79774742845928682508176690714683554, +1.88611666483079733914800042194813763, +1.77257059583685845069671094589992592, +1.82378880484059668904327445220925489, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34
402reltol = sqrt(epsilon(1._TKC))
403reltol
404+0.138777878078144567552953958511352539E-16
405isClose(data, atad(1:size(data)), reltol = reltol)
406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
408
409lenData = getUnifRand(5, 100)
410lenData
411+11
412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
413data
414(+1.30561829, +0.789834023), (+1.26251733, +0.629874766), (+1.75381112, +0.179826021), (+1.43409216, +0.353739142), (+1.61851382, +0.316566765), (+1.84145498, +0.813719392), (+1.03287637, +0.852148235), (+1.98200083, +0.238227963), (+1.21369934, +0.241140604), (+1.79894400, +0.516601205E-1), (+1.43256783, +0.709623694)
415
416atad = getFFTI(getFFTF(data))
417atad
418(+1.30561852, +0.789834023), (+1.26251745, +0.629874825), (+1.75381100, +0.179826081), (+1.43409216, +0.353739351), (+1.61851406, +0.316566616), (+1.84145498, +0.813719273), (+1.03287661, +0.852148116), (+1.98200083, +0.238227695), (+1.21369958, +0.241140604), (+1.79894400, +0.516601801E-1), (+1.43256795, +0.709623575), (+0.119209290E-6, -0.238418579E-6), (+0.178813934E-6, +0.894069672E-7), (-0.596046448E-7, +0.149011612E-6), (+0.357627869E-6, +0.119209290E-6), (+0.00000000, +0.178813934E-6)
419reltol = sqrt(epsilon(1._TKC))
420reltol
421+0.345266977E-3
422isClose(data, atad(1:size(data)), reltol = reltol)
423T, T, T, T, T, T, T, T, T, T, T
424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
425
426lenData = getUnifRand(5, 100)
427lenData
428+96
429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
430data
431(+1.3307568427279328, +0.46440897829534467), (+1.0256633698569961, +0.66972822033052759), (+1.2200493864203525, +0.23849725151220169), (+1.2013780111421797, +0.33834260387236581), (+1.5861861952491678, +0.39835158445763608), (+1.8162548692788623, +0.36974502432823553), (+1.9866862555342686, +0.82764198716641701), (+1.5309762828809239, +0.15859913281429772E-1), (+1.3205284697096755, +0.44342586943016959), (+1.0726851605293466, +0.94413215263690453), (+1.2263446040574668, +0.90370833941460393), (+1.8913837059316123, +0.84290787666913003E-1), (+1.2084596656142748, +0.91989600350318756), (+1.2227703601666953, +0.28177161002991169E-1), (+1.7071578751676966, +0.40404224606206818), (+1.4982654976882488, +0.15487008904334076), (+1.4218892231109876, +0.25741631938170040), (+1.2501342757698874, +0.73889291217842279), (+1.9781432379024440, +0.27772730194867046), (+1.4979418017762622, +0.11449458126357615), (+1.6435308002148261, +0.30790477404277139), (+1.2068873837062242, +0.48595596768941551), (+1.8700750841166294, +0.95252449345413770E-1), (+1.8782727003486983, +0.49896289043616193), (+1.7920937347641752, +0.27665441293243997E-1), (+1.6210928974261414, +0.39076058555007409), (+1.0010381188857096, +0.37041362225071517), (+1.0171270384308766, +0.76589176235770784), (+1.6264871950972166, +0.93261114178356808), (+1.7842049421919832, +0.11126939846264561), (+1.9796330174915067, +0.39080436846420152E-1), (+1.4004108842705150, +0.96117135387693919), (+1.8076856460568540, +0.15183902038707087), (+1.5902932020691294, +0.95314273448682330), (+1.3417546434697771, +0.57744485469386309), (+1.0088015898766054, +0.21186071138509588), (+1.1094121014495459, +0.71095141913897009), (+1.7387279043470405, +0.29476136607347136), (+1.1840832141107995, +0.32676982054327242), (+1.4951564558000143, +0.61788910610048320E-1), (+1.3472732672989749, +0.17712838471862891), (+1.7692423125667549, +0.39726520011314648), (+1.6253058933219791, +0.83026961896148332E-1), (+1.4891692396457785, +0.74303192862387446), (+1.8695340994208047, +0.63771485813282336), (+1.3331396812471306, +0.67819564850059488), (+1.7177659497691624, +0.18268512196957631), (+1.9906091207970709, +0.60506731659036417), (+1.0901513283059678, +0.24396433342942836E-1), (+1.2768885192600403, +0.93260310971607396), (+1.5170350285992678, +0.31178594532269122), (+1.8146043640274128, +0.90643484348770897), (+1.3222082528980548, +0.18592304232202650), (+1.1630822862178012, +0.56633102553253878), (+1.8004532735146495, +0.63497090617489538E-1), (+1.0787576739383118, +0.94621386304390043), (+1.4043926676884664, +0.37031407645155323), (+1.7078094682410252, +0.68537911342850988), (+1.0086225943186742, +0.58096136556065947), (+1.3535313136749665, +0.82689128806700252), (+1.8013366265201212, +0.34673823805017689), (+1.3331929581128392, +0.24007104186366790), (+1.1656826913203284, +0.21772168472917985), (+1.4873031471826825, +0.46336336258027166), (+1.8487490459887168, +0.19102088874268330), (+1.5244126910859603, +0.39044443034575271), (+1.3332789940472924, +0.24322826638939932), (+1.2097308274771426, +0.46398752100505980), (+1.1629126811988686, +0.17478007440030841), (+1.1291874209593145, +0.48149754071411988), (+1.1559285570015816, +0.16201653463187915), (+1.1486574800864724, +0.11267624267496146), (+1.5746297231183344, +0.37710711659660323), (+1.1520887455752737, +0.78115027379317659), (+1.0246893822177454, +0.58166830402561975), (+1.4609183393570795, +0.87384960041942084), (+1.2063284377970049, +0.76029954389220322), (+1.7546127795195421, +0.53530313796060502), (+1.6257857592510887, +0.75995256163819747), (+1.9209893925390684, +0.11537355627713364), (+1.4949218135481379, +0.35115468517811865), (+1.4018998064981871, +0.52993115268147639), (+1.3921387386486175, +0.13330263411433718), (+1.3828466089089626, +0.81666260492295217), (+1.0454761527847105, +0.46735364341915464), (+1.0252491305052762, +0.47624478254294200), (+1.4631227710091133, +0.44859821991272208), (+1.9225258522299908, +0.20140130661947420), (+1.8245756937516320, +0.71500688022604808), (+1.9987870734558735, +0.41008145477560221), (+1.6167617580195495, +0.76460771981652775), (+1.2628961768051683, +0.19770128943810616), (+1.7711964820941479, +0.87733508664324300), (+1.4329156964847702, +0.14133393880268219), (+1.6771652512936486, +0.63269595178447957), (+1.9466057552702720, +0.28517779181934810)
432
433atad = getFFTI(getFFTF(data))
434atad
435(+1.3307568427279326, +0.46440897829534472), (+1.0256633698569964, +0.66972822033052770), (+1.2200493864203523, +0.23849725151220189), (+1.2013780111421803, +0.33834260387236609), (+1.5861861952491676, +0.39835158445763630), (+1.8162548692788623, +0.36974502432823597), (+1.9866862555342681, +0.82764198716641713), (+1.5309762828809239, +0.15859913281430424E-1), (+1.3205284697096755, +0.44342586943016971), (+1.0726851605293468, +0.94413215263690431), (+1.2263446040574666, +0.90370833941460416), (+1.8913837059316125, +0.84290787666913503E-1), (+1.2084596656142750, +0.91989600350318768), (+1.2227703601666957, +0.28177161002991391E-1), (+1.7071578751676966, +0.40404224606206823), (+1.4982654976882490, +0.15487008904334126), (+1.4218892231109872, +0.25741631938170051), (+1.2501342757698874, +0.73889291217842290), (+1.9781432379024437, +0.27772730194867018), (+1.4979418017762625, +0.11449458126357631), (+1.6435308002148259, +0.30790477404277156), (+1.2068873837062246, +0.48595596768941579), (+1.8700750841166287, +0.95252449345413548E-1), (+1.8782727003486983, +0.49896289043616193), (+1.7920937347641750, +0.27665441293244164E-1), (+1.6210928974261412, +0.39076058555007459), (+1.0010381188857096, +0.37041362225071517), (+1.0171270384308768, +0.76589176235770784), (+1.6264871950972164, +0.93261114178356819), (+1.7842049421919834, +0.11126939846264608), (+1.9796330174915064, +0.39080436846420152E-1), (+1.4004108842705152, +0.96117135387693931), (+1.8076856460568540, +0.15183902038707078), (+1.5902932020691298, +0.95314273448682307), (+1.3417546434697771, +0.57744485469386286), (+1.0088015898766061, +0.21186071138509571), (+1.1094121014495462, +0.71095141913897031), (+1.7387279043470407, +0.29476136607347136), (+1.1840832141107991, +0.32676982054327208), (+1.4951564558000143, +0.61788910610048209E-1), (+1.3472732672989749, +0.17712838471862891), (+1.7692423125667549, +0.39726520011314675), (+1.6253058933219791, +0.83026961896148221E-1), (+1.4891692396457787, +0.74303192862387457), (+1.8695340994208047, +0.63771485813282314), (+1.3331396812471308, +0.67819564850059488), (+1.7177659497691620, +0.18268512196957609), (+1.9906091207970709, +0.60506731659036406), (+1.0901513283059678, +0.24396433342942864E-1), (+1.2768885192600403, +0.93260310971607385), (+1.5170350285992678, +0.31178594532269099), (+1.8146043640274132, +0.90643484348770842), (+1.3222082528980548, +0.18592304232202650), (+1.1630822862178012, +0.56633102553253856), (+1.8004532735146488, +0.63497090617489010E-1), (+1.0787576739383122, +0.94621386304389998), (+1.4043926676884664, +0.37031407645155306), (+1.7078094682410248, +0.68537911342850988), (+1.0086225943186742, +0.58096136556065925), (+1.3535313136749667, +0.82689128806700229), (+1.8013366265201209, +0.34673823805017628), (+1.3331929581128394, +0.24007104186366768), (+1.1656826913203284, +0.21772168472917947), (+1.4873031471826827, +0.46336336258027128), (+1.8487490459887168, +0.19102088874268314), (+1.5244126910859599, +0.39044443034575277), (+1.3332789940472927, +0.24322826638939934), (+1.2097308274771430, +0.46398752100505974), (+1.1629126811988684, +0.17478007440030838), (+1.1291874209593142, +0.48149754071411988), (+1.1559285570015811, +0.16201653463187915), (+1.1486574800864728, +0.11267624267496147), (+1.5746297231183344, +0.37710711659660323), (+1.1520887455752737, +0.78115027379317670), (+1.0246893822177452, +0.58166830402562009), (+1.4609183393570797, +0.87384960041942117), (+1.2063284377970052, +0.76029954389220322), (+1.7546127795195421, +0.53530313796060469), (+1.6257857592510887, +0.75995256163819747), (+1.9209893925390686, +0.11537355627713379), (+1.4949218135481375, +0.35115468517811865), (+1.4018998064981871, +0.52993115268147628), (+1.3921387386486175, +0.13330263411433718), (+1.3828466089089628, +0.81666260492295195), (+1.0454761527847107, +0.46735364341915481), (+1.0252491305052764, +0.47624478254294184), (+1.4631227710091133, +0.44859821991272197), (+1.9225258522299911, +0.20140130661947386), (+1.8245756937516318, +0.71500688022604830), (+1.9987870734558728, +0.41008145477560248), (+1.6167617580195492, +0.76460771981652764), (+1.2628961768051685, +0.19770128943810605), (+1.7711964820941477, +0.87733508664324267), (+1.4329156964847702, +0.14133393880268172), (+1.6771652512936488, +0.63269595178447890), (+1.9466057552702718, +0.28517779181934771), (-0.11102230246251565E-15, +0.36082248300317588E-15), (-0.33306690738754696E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.66613381477509392E-15, -0.40245584642661925E-15), (+0.22204460492503131E-15, +0.22204460492503131E-15), (+0.0000000000000000, +0.0000000000000000), (+0.22204460492503131E-15, +0.13877787807814457E-15), (+0.77715611723760958E-15, +0.0000000000000000), (+0.22204460492503131E-15, -0.11102230246251565E-15), (-0.33306690738754696E-15, -0.27755575615628914E-15), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.0000000000000000, -0.33306690738754696E-15), (+0.11102230246251565E-15, +0.0000000000000000), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.11102230246251565E-15, -0.11102230246251565E-15), (+0.66613381477509392E-15, -0.11102230246251565E-15), (+0.0000000000000000, +0.27755575615628914E-16), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.41633363423443370E-15), (+0.55511151231257827E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.49960036108132044E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (-0.22204460492503131E-15, +0.80491169285323849E-15), (+0.77715611723760958E-15, +0.55511151231257827E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (+0.77715611723760958E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.83266726846886741E-15), (+0.66613381477509392E-15, +0.54123372450476381E-15), (+0.0000000000000000, +0.72164496600635175E-15), (+0.12212453270876722E-14, +0.11102230246251565E-14)
436reltol = sqrt(epsilon(1._TKC))
437reltol
438+0.14901161193847656E-7
439isClose(data, atad(1:size(data)), reltol = reltol)
440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
442
443lenData = getUnifRand(5, 100)
444lenData
445+19
446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
447data
448(+1.77492095527712160196252762763813147, +0.116502480041699501084369652869351036), (+1.64947779197229889407388723461117830, +0.619604083711800994634404850205777184), (+1.45667903755956702895406640936894034, +0.703900021833460860362225360021429147E-1), (+1.27988146992271364749683970384335425, +0.346180407915156706622905864840723879E-1), (+1.03694254863787197972055782802703247, +0.916491356300903933279559342181160278), (+1.49024027896142537166395648335382209, +0.513537740537858580870768852179598926), (+1.43232688421238390019502139884397878, +0.797651957638750043162857452222784952), (+1.10144362928784505093657019756510134, +0.880383247025974627875315076092378060), (+1.36354687239856506278765225306538501, +0.276547783671180873472178420802461375), (+1.68870157882906441480224756709765411, +0.803335200615326953073209945744530071), (+1.37419926336961211152598117595566776, +0.478724388705201761472154366698884818), (+1.86210531202364282328439056533839888, +0.489845846158247674311583342925930429), (+1.38220371521344503380030362033358460, +0.516237538835440470719120354869948768), (+1.41468801095209363255782243380005096, +0.670068128649239183779320048474893604), (+1.59540474267838931196123398565670007, +0.504569623472328497793920750482869806), (+1.35947269561848338782870930758843970, +0.692355858893559886935295597045428963), (+1.01205030388302332055048352493076267, +0.843001181665336744894132567291029786), (+1.63200697797281270237952764355183793, +0.526937578299796572943544934118585288), (+1.50012133080545509131220286248098315, +0.344754292890123027898914753862659154)
449
450atad = getFFTI(getFFTF(data))
451atad
452(+1.77492095527712160196252762763813147, +0.116502480041699501084369652869351084), (+1.64947779197229889407388723461117791, +0.619604083711800994634404850205777087), (+1.45667903755956702895406640936894072, +0.703900021833460860362225360021427462E-1), (+1.27988146992271364749683970384335425, +0.346180407915156706622905864840723277E-1), (+1.03694254863787197972055782802703266, +0.916491356300903933279559342181160471), (+1.49024027896142537166395648335382189, +0.513537740537858580870768852179598637), (+1.43232688421238390019502139884397897, +0.797651957638750043162857452222785048), (+1.10144362928784505093657019756510115, +0.880383247025974627875315076092378156), (+1.36354687239856506278765225306538501, +0.276547783671180873472178420802461375), (+1.68870157882906441480224756709765353, +0.803335200615326953073209945744529975), (+1.37419926336961211152598117595566796, +0.478724388705201761472154366698884914), (+1.86210531202364282328439056533839869, +0.489845846158247674311583342925930670), (+1.38220371521344503380030362033358460, +0.516237538835440470719120354869948671), (+1.41468801095209363255782243380005096, +0.670068128649239183779320048474893797), (+1.59540474267838931196123398565670026, +0.504569623472328497793920750482869998), (+1.35947269561848338782870930758843951, +0.692355858893559886935295597045429156), (+1.01205030388302332055048352493076287, +0.843001181665336744894132567291029786), (+1.63200697797281270237952764355183793, +0.526937578299796572943544934118585191), (+1.50012133080545509131220286248098334, +0.344754292890123027898914753862659347), (+0.00000000000000000000000000000000000, -0.601853107621011204079993107057789787E-34), (+0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33), (+0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (+0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33), (+0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34)
453reltol = sqrt(epsilon(1._TKC))
454reltol
455+0.138777878078144567552953958511352539E-16
456isClose(data, atad(1:size(data)), reltol = reltol)
457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
459
460lenData = getUnifRand(5, 100)
461lenData
462+61
463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
464data
465+1.75354123, +1.59891343, +1.43299401, +1.34583569, +1.66464663, +1.99501729, +1.02126765, +1.35696340, +1.56402564, +1.05307758, +1.53911948, +1.46107197, +1.42848814, +1.50759411, +1.20319009, +1.24990439, +1.64912152, +1.71910858, +1.90437460, +1.60777092, +1.10300756, +1.94587338, +1.09654331, +1.96367264, +1.77927518, +1.09350204, +1.43797421, +1.95080519, +1.18917632, +1.29828000, +1.02048945, +1.79558980, +1.46064425, +1.72435868, +1.09493423, +1.87021673, +1.08504844, +1.51510811, +1.00150335, +1.36843681, +1.73429477, +1.65441179, +1.67621553, +1.30198622, +1.65887070, +1.96106219, +1.59189224, +1.04405451, +1.18338192, +1.34298873, +1.30939376, +1.39635205, +1.76519012, +1.89488328, +1.07572150, +1.65850449, +1.04196382, +1.58677423, +1.82926416, +1.54602289, +1.55152082
466
467atad = getFFTI(getFFTF(data))
468atad
469+1.75354135, +1.59891355, +1.43299401, +1.34583592, +1.66464663, +1.99501717, +1.02126777, +1.35696352, +1.56402564, +1.05307770, +1.53911936, +1.46107209, +1.42848849, +1.50759399, +1.20319033, +1.24990439, +1.64912152, +1.71910846, +1.90437460, +1.60777116, +1.10300756, +1.94587326, +1.09654355, +1.96367264, +1.77927518, +1.09350216, +1.43797421, +1.95080519, +1.18917644, +1.29828000, +1.02048945, +1.79558992, +1.46064436, +1.72435868, +1.09493434, +1.87021708, +1.08504844, +1.51510799, +1.00150335, +1.36843693, +1.73429465, +1.65441179, +1.67621529, +1.30198634, +1.65887094, +1.96106207, +1.59189224, +1.04405475, +1.18338180, +1.34298861, +1.30939388, +1.39635253, +1.76519012, +1.89488316, +1.07572174, +1.65850449, +1.04196382, +1.58677423, +1.82926416, +1.54602313, +1.55152094, +0.119209290E-6, +0.178813934E-6, +0.476837158E-6
470reltol = sqrt(epsilon(1._TKC))
471reltol
472+0.345266977E-3
473isClose(data, atad(1:size(data)), reltol = reltol)
474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
476
477lenData = getUnifRand(5, 100)
478lenData
479+100
480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
481data
482+1.2546987913650809, +1.7938634841361809, +1.6013453810585236, +1.0655046931458081, +1.0573341105743888, +1.3097407709604876, +1.7996836012937947, +1.6559316091711267, +1.7511527356173153, +1.2450720273572928, +1.6154959571844048, +1.5389347684888519, +1.0746529332365864, +1.3296171480651868, +1.5743969075322699, +1.7994997892275570, +1.2761230683802016, +1.3738799691378591, +1.8048838371371729, +1.3598886596661934, +1.3446900124235217, +1.8045238348241053, +1.6696045393395251, +1.2976910541584519, +1.1956823420969336, +1.1619595985994038, +1.8306938864163942, +1.5574922484369402, +1.2889377624394451, +1.6438198947151879, +1.1496917412538248, +1.6548018864716705, +1.6271191545263939, +1.6283285463918054, +1.7223627194707471, +1.4801327794381867, +1.2202529972497795, +1.9768730271996096, +1.8371626045446703, +1.2573202071157215, +1.2003631354124453, +1.0249199903621884, +1.8026080584144923, +1.3323092110431305, +1.7928608437817064, +1.7851222175248180, +1.4796207228409735, +1.2222377910976709, +1.9854303796483748, +1.4118797981170581, +1.1598558299026229, +1.9859557726696933, +1.4085147974269954, +1.2582153966119070, +1.9882313666916327, +1.7321850874692135, +1.2178971203802971, +1.4093883815385935, +1.8633225735133947, +1.1168046093829433, +1.7849051878801041, +1.7816242548879040, +1.5731700423602244, +1.3702675586104229, +1.9414511139565620, +1.0774599422227140, +1.5632769203418513, +1.9429092241213644, +1.8681705416383720, +1.1470748879712729, +1.1086663516680337, +1.8869136092484795, +1.7439849230023152, +1.4702043716943367, +1.0179007288058846, +1.9364653614712908, +1.1840462350525573, +1.5289406203483313, +1.7475192009084202, +1.2838854066098333, +1.1435862007324586, +1.5912369589699757, +1.2118356767780023, +1.4561084198739749, +1.6674901135756770, +1.0611619038428355, +1.7794681102447629, +1.1866664856424758, +1.7888620899352454, +1.3090756806808046, +1.2571772363923626, +1.3940977061459034, +1.1476624415728711, +1.5859375006314651, +1.0706291144753024, +1.1114667109044012, +1.2637577517940057, +1.2165339521005096, +1.4198921600099588, +1.3301706181166555
483
484atad = getFFTI(getFFTF(data))
485atad
486+1.2546987913650809, +1.7938634841361807, +1.6013453810585241, +1.0655046931458090, +1.0573341105743879, +1.3097407709604878, +1.7996836012937942, +1.6559316091711271, +1.7511527356173153, +1.2450720273572926, +1.6154959571844052, +1.5389347684888524, +1.0746529332365859, +1.3296171480651868, +1.5743969075322699, +1.7994997892275575, +1.2761230683802012, +1.3738799691378594, +1.8048838371371732, +1.3598886596661941, +1.3446900124235206, +1.8045238348241053, +1.6696045393395249, +1.2976910541584521, +1.1956823420969336, +1.1619595985994038, +1.8306938864163942, +1.5574922484369407, +1.2889377624394445, +1.6438198947151876, +1.1496917412538246, +1.6548018864716709, +1.6271191545263941, +1.6283285463918051, +1.7223627194707476, +1.4801327794381873, +1.2202529972497795, +1.9768730271996096, +1.8371626045446705, +1.2573202071157217, +1.2003631354124455, +1.0249199903621879, +1.8026080584144928, +1.3323092110431305, +1.7928608437817064, +1.7851222175248176, +1.4796207228409735, +1.2222377910976709, +1.9854303796483745, +1.4118797981170579, +1.1598558299026234, +1.9859557726696937, +1.4085147974269954, +1.2582153966119072, +1.9882313666916329, +1.7321850874692133, +1.2178971203802971, +1.4093883815385928, +1.8633225735133949, +1.1168046093829436, +1.7849051878801041, +1.7816242548879035, +1.5731700423602244, +1.3702675586104225, +1.9414511139565618, +1.0774599422227140, +1.5632769203418513, +1.9429092241213648, +1.8681705416383720, +1.1470748879712727, +1.1086663516680337, +1.8869136092484795, +1.7439849230023152, +1.4702043716943363, +1.0179007288058846, +1.9364653614712908, +1.1840462350525571, +1.5289406203483311, +1.7475192009084206, +1.2838854066098335, +1.1435862007324586, +1.5912369589699753, +1.2118356767780023, +1.4561084198739753, +1.6674901135756766, +1.0611619038428348, +1.7794681102447629, +1.1866664856424751, +1.7888620899352450, +1.3090756806808042, +1.2571772363923626, +1.3940977061459034, +1.1476624415728713, +1.5859375006314640, +1.0706291144753026, +1.1114667109044005, +1.2637577517940055, +1.2165339521005094, +1.4198921600099588, +1.3301706181166557, +0.0000000000000000, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.55511151231257827E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.55511151231257827E-15, +0.66613381477509392E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.11102230246251565E-14, +0.66613381477509392E-15, -0.33306690738754696E-15, +0.77715611723760958E-15, +0.55511151231257827E-15, +0.12212453270876722E-14
487reltol = sqrt(epsilon(1._TKC))
488reltol
489+0.14901161193847656E-7
490isClose(data, atad(1:size(data)), reltol = reltol)
491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
493
494lenData = getUnifRand(5, 100)
495lenData
496+29
497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
498data
499+1.45925503727270215627471101343460650, +1.69242192491576643687982912312539089, +1.10988725980039751318924759943139447, +1.21088736629469675388148354338253322, +1.62444799891311617246640498355778218, +1.40061906587675442652707898359800137, +1.04230708451703124427699717119297430, +1.58834203216045590233161554085161994, +1.59860303358256985498739296771552781, +1.78156395663872128582657261385709531, +1.81218857015625353691874040356567046, +1.19401235833432343579785469841809122, +1.73504597912004937663610558522551591, +1.05830536064095945994408747791477311, +1.14418171873443095122988104509447158, +1.57054772392483808024465233308521756, +1.50986990234831146931442149440628903, +1.08375031566529094015361068462736367, +1.00686248816592618022784316548006161, +1.62119652736692987873747262578963213, +1.46262043505168430898451991892105329, +1.98832344902359765657593001447511873, +1.15381716251791166609997881221483489, +1.37670185953853258623136401213669289, +1.17211842521264520488897855507178317, +1.24704662806369118538064274527119998, +1.91789628085717343215623901439890342, +1.50365768064567874562079656111050229, +1.42826229176404889367929908556367360
500
501atad = getFFTI(getFFTF(data))
502atad
503+1.45925503727270215627471101343460592, +1.69242192491576643687982912312539069, +1.10988725980039751318924759943139466, +1.21088736629469675388148354338253284, +1.62444799891311617246640498355778237, +1.40061906587675442652707898359800098, +1.04230708451703124427699717119297450, +1.58834203216045590233161554085162013, +1.59860303358256985498739296771552800, +1.78156395663872128582657261385709512, +1.81218857015625353691874040356567046, +1.19401235833432343579785469841809083, +1.73504597912004937663610558522551611, +1.05830536064095945994408747791477292, +1.14418171873443095122988104509447196, +1.57054772392483808024465233308521756, +1.50986990234831146931442149440628865, +1.08375031566529094015361068462736348, +1.00686248816592618022784316548006142, +1.62119652736692987873747262578963174, +1.46262043505168430898451991892105329, +1.98832344902359765657593001447511873, +1.15381716251791166609997881221483489, +1.37670185953853258623136401213669270, +1.17211842521264520488897855507178317, +1.24704662806369118538064274527119960, +1.91789628085717343215623901439890342, +1.50365768064567874562079656111050229, +1.42826229176404889367929908556367360, -0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-33, -0.577778983316170755916793382775478196E-33
504reltol = sqrt(epsilon(1._TKC))
505reltol
506+0.138777878078144567552953958511352539E-16
507isClose(data, atad(1:size(data)), reltol = reltol)
508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
510
511
Test:
test_pm_fftnr


Final Remarks


If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 428 of file pm_fftnr.F90.


The documentation for this interface was generated from the following file: